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About Finance Communications Programming (SC41-5449) 


This book contains the commands and procedures 
for setting up and using both the intersystem com- 
munications function (ICF) finance support and the 
non-ICF finance support for the AS/400 system. 


Throughout this book, the terms “controller” and 
“processor” are used interchangeably depending 
on the machine type. 


For a list of publications related to this book, see 
the “Bibliography.” 


Who Should Use This Book 


This book is intended for system administrators, 
system operators, and application programmers. 


For more information on basic communications 
you can also refer to the Discover/Education* 
course in the communications module. The 
Discover/Education course is separately orderable. 


Before you use the material in this book, you 
should be familiar with the book, CL Programming. 
This book contains a wide-ranging discussion of 
AS/400 system topics, including a general dis- 
cussion of objects and libraries and control lan- 
guage (CL) programming, as well as a discussion 
on controlling flow and communications. To write 
your transaction processing applications, you must 
know the programming language of the system 
and how to enter and create a program at an 
AS/400 work station. 


Depending on the interface you use to communi- 
cate between the AS/400 system and the attached 
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finance devices, you need to understand varying 
amounts of the information found in the Commu- 
nications Configuration book, and the ICF Pro- 
gramming book. 


Prerequisite and Related 
Information 


For information about other AS/400 publications 
(except Advanced 36), see either of the following: 


¢ The Publications Reference book, SC41-5003, 
in the AS/400 Softcopy Library. 

¢ The AS/400 Information Directory, a unique, 
multimedia interface to a searchable database 
that contains descriptions of titles available 
from IBM or from selected other publishers. 
The AS/400 Information Directory is shipped 
with the OS/400 operating system at no 
charge. 


Information Available on the 
World Wide Web 


More AS/400 information is available on the World 
Wide Web. You can access this information from 
the AS/400 home page, which is at the following 
uniform resource locator (URL) address: 


http: //www.as400.ibm.com 
Select the Information Desk, and you will be able 


to access a variety of AS/400 information topics 
from that page. 


Xi 
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Chapter 1. Introduction to Finance Communications 


This chapter is an introduction to AS/400* finance 
communications. It also includes an overview of 
the intersystem communications function (ICF) 
and non-ICF communications support information, 
and an example of a finance communications 
network. 


Finance Communications 
Environment 


Finance communications uses high-level language 
operations and communications functions that 
allow you to communicate between an AS/400 
system and finance controllers, or between a 
System/370* or System/390* host system and 
finance controllers attached to an AS/400 system, 
providing a banking environment communications 
system. Finance communications allows pro- 
grams in the supported high-level languages C 
Set ++ for OS/400*, (Integrated Language Envi- 
ronment (ILE) C/400*, ILE COBOL/400*, and ILE 
RPG/400* languages) on an AS/400 system to 
communicate with IBM* 3694, 4701, 4702, 4730, 
4731, 4732, and 4736 finance processors and per- 
sonal computers or Personal System/2* work 
stations using Financial Branch System Services 
(FBSS) software. 


Note: The FBSS software must be version 2.2 or 
later when using DOS. 


AS/400 finance communications includes two sep- 
arate methods of communication: ICF finance 
communications and non-ICF finance communica- 
tions. Both methods communicate using the 
Systems Network Architecture logical unit (SNA 
LU) type 0 (LUO) primary protocol. 


Figure 1-1 provides an overview of both the ICF 
and non-ICF finance communications methods. 
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Figure 1-1. Overview of ICF and Non-ICF Finance 


Communications 


ICF Finance 


Supports the following 
operations and functions: 


e Acquire 

¢ Cancel 

¢ Cancel-invite 

e End-of-group 

e End-of-session 

¢ Function- 
management-header 

¢ Invite 

¢ Negative-response 

e Release 

e Read 

¢ Read-from-invited- 
program-devices 

¢ Timer 

¢ Write 

e Write-with-read 


Communicates through 
ICF file 


Supports requester 
(target) and acquired 
(source) sessions 


Supports chaining2 or 
grouping of records 


Verifies security informa- 
tion on the INIT-SELF 
request by using the 
AS/400 system 


Uses ICF operations and 
functions to communicate 
between applications and 
devices 


Notes: 


Non-ICF Finance 


Operations limited to the 
following operations and 
functions: 


e Acquire 

e Invite 

e Read 

¢ Read-from-invited- 
devices 

e Release 

e Write 

e Write-with-invite 


Use of finance control 
byte allows function- 
management-header' for 
the 3694 processor 


Communicates through 
display file using user- 
defined data streams 
(UDDS) 


Supports only acquired 
sessions 


Supports only single 
records 


Verifies security by using 
a user application 


Uses operations or 
passes parameters to 
communicate between 
applications and devices 


1 A record that contains control information for the 


data that follows. 


2 A method of storing records in which each record 
belongs to a list or group of records and has a 
linking field for tracing the chain. 


Finance Communications 
Network Example 


Figure 1-2 is one example of an AS/400 finance 
communications network. 


Ethernet 
8209 


Token AS/400 System 
FBSS* Ring 
LAN 


User Applications 


Finance Communications 


3279 


4720 


4722 4707 4737 ve 
SDLC ree 
ee 
3694 4702 
See 4732 | 
| 
| 
47323 4704 | gies 
4704 
4701 
3624 4704 4704 4710 3278 
*ICF only 


Figure 1-2. Example of an AS/400 Finance Communications Network 


Finance Communications Using 


SNA Pass-Through Support 


SNA pass-through is an AS/400 function that 
allows finance controllers and devices attached to 
the AS/400 system to communicate directly with a 
System/370 or System/390 host system. See 
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RV2P875-0 


“Configuring the AS/400 System for SNA Pass- 
Through Communications” on page 3-4 for infor- 


mation about configuring SNA pass-through 


support. 


Chapter 2. Finance Communications Support 


This chapter explains the functions supported by 
ICF and non-ICF finance communications inter- 
faces. 


Finance Functions 


The types of finance controllers used with both 
ICF and non-ICF finance communications on the 
AS/400 system are: 


¢ 3601 Finance Communications Controller 
¢ 3694 Document Processor 

¢ 4701 Finance Communications Controller 
e 4702 Communications Processor 


The types of finance controllers used only with 
ICF finance communications on the AS/400 
system are: 


¢ 4730 Personal Banking Machines 

¢ 4731 Personal Banking Machines 

¢ 4732 Personal Banking Machines 

¢ 4736 Personal Banking Machines 

e Financial Branch System Services (FBSS), 
including the 4737 Self-Service Transaction 
Station 


The 3601 controller is the predecessor to the 4701 
finance controller. Configure the 3601 as a 4701 
controller with the appropriate exchange identifier 
(EXCHID) value. 


4737 Self-Service Transaction Stations are config- 
ured as TYPE(*FBSS). 


The 3694 processor is a programmable inscriber- 
reader-sorter that financial institutions use to 
inscribe, read, and sort magnetic-ink character 
recognition (MICR) documents and to capture data 
for subsequent host-system processing. 


The 4701, 4702, and FBSS finance controllers are 
programmable and perform a variety of data pro- 
cessing transactions in a financial environment. 
FBSS is an IBM licensed program that provides 
extensions to the operating system of the personal 
computer or the PS/2* work station to support a 
finance industry environment. Through attached 
devices, tellers use finance communications for 
account inquiry and updating. Accountants use 
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finance communications to maintain a record of 
cash flow through their businesses. 


The 4730, 4731, 4732, and 4736 Personal 
Banking Machines are programmable and can dis- 
pense and accept money while keeping track of 
the transactions. Customers of financial insti- 
tutions use Personal Banking Machines to transfer 
funds, determine account balance amounts, and 
make automatic payments. 


The 4737 Self-Service Transaction Station is pro- 
grammable and performs financial tasks such as 
transferring funds, determining account balance 
amounts, and making automatic payments. 


Using finance communications, you can do the 
following: 


¢ Send and receive data between the AS/400 
system and the finance controller programs 
and describe how to present that data. 


e Use SNA pass-through to provide communica- 
tions between finance controllers and devices 
attached to the AS/400 system and a 
System/370 or System/390 host system. 


¢ Communicate with 4701 and 4702 controllers 
using an X.21 circuit-switching network. X.21 
is the Telecommunication Standardization 
Sector (CCITT), formerly known as ITU-T, 
specification that defines connection of data 
terminal equipment to an X.21 network. 


¢ Communicate with 4701, 4702, and FBSS 
controllers through an X.25 packet-switching 
data network. X.25 is the ITU-T specification 
that defines the interface to an X.25 network. 
The AS/400 system attaches to an X.25 
network using a nonswitched line through 
either an X.21 or X.21 bis (V.24 or V.35) 
physical shared boundary. 


¢ Communicate with FBSS controllers on a 
token-ring network using Systems Network 
Architecture (SNA). 


¢ Communicate between an FBSS controller on 
a token-ring network and an AS/400 system 
on an Ethernet network using the 8209 LAN 
bridge to connect the two LANs. 


2-1 


e Allow 3270 sessions and finance sessions to 
share the same X.25 virtual circuit. 


e Allow attached 4701, 4702, and FBSS finance 
controllers to share the X.25 line with any 
AS/400 session types possible for X.25 com- 
munications. 


e Attach any finance controller to your AS/400 
system using the synchronous data link 
control (SDLC) protocol. SDLC is a type of 
communications line control that uses com- 
mands to control the transfer of data over a 
communications line. SDLC can have one of 
the following configurations: 


— Nonswitched point-to-point 

— Nonswitched multipoint 

— Switched point-to-point, using the following 
connection methods: 

- Automatic dial (uses a serial automatic 
dial modem). 

- Automatic call (two-line EIA 366/V.25) 
support. You need RPQ 843567 for 
the 9406 System Unit and RPQ 
843568 for the 9404 System Unit. 

- Automatic answer. 

- Manual dial. 

- Manual answer. 


The finance controllers can share the same 
SDLC multipoint communications line with any 
other session type using an SDLC primary 
role on the AS/400 system. 


Note: The AS/400 system allows a maximum 
of 254 controllers to be attached to a multi- 
point line. 


Concurrent Sessions 


The AS/400 system supports concurrent operation 
of 3270 displays, printers, and finance work 
stations on one controller. However, the controller 
must also support concurrent LUO and 3270 (LU1, 
LU2, and LU3) device operation. For 4701 and 
4702 controllers, the type and the application of 
each device attached to the controller must be 
defined in the controller program generator 
(CPGEN) file on the controller. The CPGEN file 
determines what session type the device will be 
using. 


The 3270 device support includes the IBM 3277, 
3278, and 3279 displays and the IBM 3287 
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printer. For more information about the 3270 work 
station support, see the topic on using the 3270 
remote attachment support in the Remote Work 
Station Support, SC41-5402. 


Security 


The security provided on the AS/400 system con- 
trols the use of communications device 
descriptions and commands used with the device 
descriptions. Security also controls access to pro- 
grams and objects used by programs. 


For finance-specific considerations, see 

Chapter 7, “Finance Considerations,” and for 
general system security information, see the Secu- 
rity — Reference book. 


Error Handling and Recovery 


Application programs use major and minor error 
return codes to handle error conditions. Applica- 
tions written in high-level languages can access 
return codes to help diagnose problems. The C 
Set ++ for OS/400, ILE COBOL/400, and ILE 
RPG/400 languages provide language-defined file 
values for status that can be used together with 
the major and minor codes. Messages are 
entered in the job log to identify the error that 
occurred. 


Note: The ILE C/400 language does not support 
file status values. However, you can look at the 
value of the global variable in the errno.h header 
file to check for any I/O exceptions that may occur 
and to retrieve any exception data associated with 
the error. 


If an error results in a notify message, it is recov- 
erable with little or no operator involvement. 


For error recovery specific to ICF finance, see 
Appendix B, “Return Codes, Messages, and 
Sense Codes.” For error recovery specific to 
non-ICF finance, see Chapter 6, “Writing Non- 
Intersystem Communications Function Application 
Programs.” 


For information describing recovery from line 
errors, see the Communications Management 
book. 


System Monitor Session 


The system monitor is a controller program used 
to perform service, configuration, and debugging 
functions on 4701 and 4702 finance controllers. 
Local location address (LOCADR) 01 is reserved 
for this program. When using finance communica- 
tions, your ICF application program communicates 
with the system monitor program by using a 
device configuration specified as LOCADR (01) 
and a finance type of *FNCICF. 


4701 Finance Controller Diskette 


Download: The AS/400 system supports the 
downloading of an operating diskette image for an 
8-inch diskette. The operating diskette image for 
the 4701 finance controller must be created on a 
System/370 computer and loaded on the AS/400 
system. After the diskette image is loaded on the 
AS/400 system, use the diskette download support 
to send the diskette image to the controller 
through the system monitor session. For more 
information about this feature, see Appendix D, 
“4701 Finance Controller Diskette Download.” 


Finance Interfaces 


Operating System/400* (OS/400*) finance commu- 
nications provides support allowing application 
programs to communicate with finance controllers. 
The application programmer can use ICF finance 
or non-ICF finance to access this support. 


Regardless of the interface you choose, you must 
supply the following: 


e Finance controller application programs 
¢ AS/400 application programs to process finan- 
cial transactions 


You can write application programs on the AS/400 
system using the supported high-level language 
licensed programs. 


Intersystem Communications 
Function Finance Support 


Specify TYPE(*FNCICF) in the device description 
to identify that you are using ICF finance. Appli- 
cation programs use an ICF file to send and 
receive data. The ICF file contains the file 
description identifying the record formats used by 
the application programs. For more information 
about writing ICF finance applications, see 
Chapter 5, “Writing Intersystem Communications 
Function Finance Application Programs.” 


Non-Intersystem 
Communications Function 
Finance Support 


The non-ICF finance communications support is 
separate from and completely independent of ICF 
finance communications support. Specify 4704, 
3624, or 3694 for the TYPE parameter in the 
device description to identify that you are using 
non-ICF finance. Non-ICF finance uses a display 
file to send and receive data. The display file con- 
tains the file description identifying the record 
formats used by the application program and 
finance support. 


You can choose one of the following for non-ICF 
finance communications: 


¢ The Submit Finance Job (SBMFNCJOB) 
command with the Work with Table 
(WRKDEVTBL, WRKUSRTBL, or 
WRKPGMTBL) commands. 


For information about the Submit Finance Job 
and Work with Table commands, see “Using 
the Submit Finance Job Command” on 

page 6-1. 


e Finance I/O Manager (FIOM) alone or with 
either the SBMFNCJOB command or the 
user-defined data stream (UDDS). FIOM is 
the recommended alternative to UDDS. For 
more information about FIOM, see “Using 
Finance Input/Output Manager” on page 6-7. 


e UDDS. For more information about UDDS, 
see “Using User-Defined Data Stream” on 
page 6-14. 
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Chapter 3. Configuring Finance Support 


This chapter describes the commands used to 
configure your AS/400 system for finance commu- 
nications. See the Communications Configuration 
book for a complete description of AS/400 config- 
uration commands and parameters. 


Configuring the AS/400 System 
for Finance Communications 


The following commands allow you to create, 
change, display, print, and delete the line, con- 
troller, and device descriptions. 


Configuring the Line Description 


An AS/400 line description contains configuration 
information, such as the port number for commu- 
nications lines, network characteristics, and phys- 
ical information needed by the system. Create a 
line description for each communications line used 
to communicate with a finance controller. 


Use the following commands to create, change, 
display, print, or delete line descriptions: 


CRTLINSDLC 
The Create Line Description (SDLC) 
command allows you to create a line 
description for each SDLC communica- 
tions line used to communicate with the 
finance controllers. Each line should be 
created as the SDLC primary role. 


CRTLINX25 
The Create Line Description (X.25) 
command allows you to create a line 
description for each X.25 communications 
line used to communicate with the 4701, 
4702, and Financial Branch System Ser- 
vices (FBSS) controllers. 


CRTLINTRN 
The Create Line Description (Token-ring) 
command allows you to create a line 
description for a token-ring network used 
with an FBSS controller. 


CRTLINETH 
The Create Line (Ethernet) command 
allows you to create a line description for 
an Ethernet line used to communicate with 
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finance controllers over an 8209 LAN 
Bridge that connects the Ethernet line to a 
token-ring LAN to which the controller is 
attached. 


CHGLINSDLC 
The Change Line Description (SDLC) 
command allows you to change the config- 
uration parameters for an SDLC commu- 
nications line used to communicate with 
finance controllers. 


CHGLINX25 
The Change Line Description (X.25) 
command allows you to change the config- 
uration parameters for an X.25 commu- 
nications line used to communicate with 
finance controllers. 


CHGLINTRN 
The Change Line Description (Token-ring) 
command allows you to change the config- 
uration parameters for a token-ring 
network used to communicate with finance 
controllers. 


CHGLINETH 
The Change Line Description (Ethernet) 
command allows you to change the config- 
uration parameters for an Ethernet line 
used to communicate with finance control- 
lers over an 8209 LAN Bridge that con- 
nects the Ethernet line to a token-ring LAN 
to which the controller is attached. 


DSPLIND 
The Display Line Description command 
allows you to display or print a line 
description. 


DLTLIND 
The Delete Line Description command 
allows you to delete a line description. 


Configuring the Controller 
Description 

A finance controller description defines configura- 
tion parameters unique to each finance controller, 


such as the station address to the system. 


These controller descriptions are linked to the con- 
figured nonswitched line description when you 
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create the descriptions. Controller descriptions for 
switched connections are linked to the first avail- 
able line in the configured switched line list when 
the call is made. 


Use the following commands to create, change, 
display, or delete finance controller descriptions: 


CRTICTLFNC 
The Create Controller Description 
(Finance) command allows you to create a 
finance controller description for each 
finance controller with which your AS/400 
system is communicating. 


CHGCTLFNC 
The Change Controller Description 
(Finance) command allows you to change 
the configuration parameters for a finance 
controller description. 


DSPCTLD 
The Display Controller Description 
(Finance) command allows you to display 
or print a controller description. 


DLTCTLD 
The Delete Controller Description 
(Finance) command allows you to delete a 
controller description. 


Configuring the Device 
Description 


Device descriptions contain the logical unit (LU) 
address and device type of each device on a 
finance controller on the AS/400 system. (The LU 
address is known as the local location address.) 


The local location address must match the 
address you used to identify a particular physical 
device. The local location address (LOCADR) 
parameter you specify can be a value from hex 02 
through 3C for the non-ICF finance communica- 
tions method and hex 01 through FF for ICF 
finance. 


The device description also defines which finance 
communications method, ICF or non-ICF, is used. 
If you use ICF with a finance controller, you can 
also define a system monitor session by speci- 
fying a local location address of 01 and a finance 
type of *FNCICF. 


You can create device descriptions for the fol- 
lowing finance types: 
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e ICF finance device description (*FNCICF) 

¢ 3624 Consumer Transaction Facilities (CTF) 

¢ 3694 Document Processors 

¢ 4704 Finance Communication Display Stations 


Note: When you define a device as *FNCICF, 
the device can be any supported finance device. 


Use the following commands to create, change, 
display, print, or delete device descriptions: 


CRTDEVFNC 
The Create Device Description (Finance) 
command allows you to create a device 
description for a finance device that will be 
linked to a finance controller. If you use 
ICF finance communications, you must 
specify *FNCICF as the device type 
(TYPE) parameter in the CRTDEVFNC 
command. If you use non-ICF finance, 
specify the specific device number, such 
as 4704, 3624, and 3694, in the TYPE 
parameter. 


CRTDEVDSP 
The Create Device Description (Display) 
command allows you to create a device 
description for each 3270 family display 
linked to each finance controller. Specify 
the class as a remote (“RMT) device. You 
can attach 3277, 3278, 3279, and 3287 
device types to a finance controller. 


CRTDEVPRT 
The Create Device Description (Printer) 
command allows you to create a device 
description for each 3287 printer attached 
to the finance controller. Specify the class 
as a remote (*RMT) device. 


CHGDEVFNC 
The Change Device Description (Finance) 
command allows you to change the config- 
uration parameters for each finance con- 
troller. 


CHGDEVDSP 
The Change Device Description (Display) 
command allows you to change the config- 
uration parameters for each display 
attached to the finance controller. 


CHGDEVPRT 
The Change Device Description (Printer) 
command allows you to change the config- 
uration parameters for each printer 
attached to the finance device. 


DSPDEVD 
The Display Device Description command 
allows you to display or print a device 
description. 


DLTDEVD 
The Delete Device Description command 
allows you to delete a device description. 


You can define up to the following maximum 
number of devices for each controller: 


Figure 3-1. Number of Devices per Controller 


Maximum Maximum 
Controller Devices Active at Once 
4701 255 120 
4702 255 120 
FBSS 255 240 
4731, 4732, 
4736 2 2 
3694 4 4 
4730 3 3 


Only devices specified as TYPE(3694) or 
TYPE(*FNCICF) can be attached to the 3694 con- 
troller. Only devices specified as TYPE(*FNCICF) 
can be attached to the 4730, 4731, 4732, or 4736 
controllers. An FBSS controller can have 
“FNCICF, 3277, 3278, 3279, and 3287 devices 
attached. You can configure any of the following 
device types for a 4701 or 4702 controller: 3277, 
3278, 3279, 3287, 3624, 4704, and *FNCICF. 


Note: If you are using non-ICF finance commu- 
nications, you can attach a 4710 or 4720 printer to 
the AS/400 system by configuring the printer as a 
4704 device. If you are using ICF finance com- 
munications, configure the printer as a *FNCICF 


type. 


The device type you specify in the device 
description determines the format of the data 
stream sent to the finance controller. The data 
stream can be one of the following: 


e LUO for device type 3624, 3694, 4704, or 
*“FNCICF 

e LU1 for device type 3287 

e LU2 for device type 3277, 3278, or 3279 


Note: If you specify a 32XX device, the 4701, 
4702, and FBSS controllers must be capable of 


supporting 3270 logical unit 1 (LU1) and 3270 
logical unit 2 (U2) data streams. 


Using 3270 Devices 

If your 4701, 4702, or FBSS finance controller can 
support the 3270 family of displays and printers, 
you can also attach those devices to your finance 
controller. 


The AS/400 system requires that any device con- 
figured as a 3278 or a 3279 must accept extended 
data streams. Be sure that the application 
program running on the 4701, 4702, or FBSS con- 
troller has extended data stream support. If it 
does not have extended data stream support, con- 
figure each device as a type 3277. LUO data 
streams allow printer data to be included with 
display data. LU1 data streams are sent to 
printers. LU2 data streams require you to create 
3270-type application displays. Be aware that 
translation and emulation can make the LU2 
approach run slower than the LUO support. 


You can program a 4701, 4702, or FBSS con- 
troller to do 3270 emulation. You can also con- 
figure a finance device as a 3270 display, or you 
can attach 3278, 3279, and 3287 devices to the 
controller. You must use an LU2 emulation 
package on the controller regardless of which 
devices you use. Using this mode of operation, 
you can configure the controller as follows: 


e As an FBSS controller with 3270 emulation or 
3287 printer emulation plus FBSS-supported 
finance devices attached 


e As a 4701 or 4702 controller with 3277, 3278, 
3279, 3287 devices and, optionally, 3624 and 
4704 devices attached 


e As a 3274 controller with only 3270 devices 
attached 


For more information about 3270 remote attach- 
ment support, see the Remote Work Station 
Support SC41-5402 book. 


You must vary on the line, controller, and device 
descriptions for finance support before any AS/400 
application program can communicate with a 
finance controller. For information about the vary 
on process, see Chapter 4, “Running Finance 
Support.” For more information about the commu- 
nications configuration process and the commands 
used for configuration, see the Communications 
Configuration book. 
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Configuring the AS/400 System 
for SNA Pass-Through 
Communications 


SNA pass-through support allows finance control- 
lers and devices attached to an AS/400 system to 
communicate directly with a System/370 or 
System/390 host system using the SNA LUO, LU1, 
or LU2 protocols. 


You configure the AS/400 system for SNA pass- 
through communications by creating line, con- 
troller, and device descriptions. These objects 
describe the connections between the AS/400 
system and the host system and between the 
AS/400 system and the finance controller and 
devices. 


Line Descriptions 
Two line descriptions must be created, 
one describing the connection between the 
finance controller and the AS/400 system, 
the other describing the connection 
between the AS/400 system and the host 
system. The line descriptions need not be 
of the same type; for example, the finance 
controller can be attached to the AS/400 
system using a token-ring line while the 
AS/400 system is connected to the host 
system using an SDLC line. 


The following commands may be used to 
create the line descriptions: 


¢ CRTLINIDLC 
¢ CRTLINETH 
e CRTLINSDLC 
e CRTLINTRN 
e¢ CRTLINX25 


Notes: 


1. ISDN communications (using IDLC or 
X.25 lines) requires additional config- 
uration of a network interface 
description and connection list. See 
the ISDN Support book for more infor- 
mation and examples of ISDN commu- 
nications. 


2. An FBSS controller attached to a 
token-ring network can be connected 
to an AS/400 system on an Ethernet 
network by using the 8209 LAN 
Bridge. The LAN and Frame Relay 
Support book contains configuration 
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examples and considerations for 
bridged environments. 


Controller Descriptions 
Two controller descriptions must be 
created for SNA pass-through communica- 
tions. A host controller, describing the 
host system, must be created using the 
CRTCTLHOST command. An APPC con- 
troller must also be created to represent 
the finance controller that will communi- 
cate with the host system. Use the 
CRTCTLAPPC command to create the 
APPC controller description. 


For finance controller types 3694, 4701, 
4702, 4730, 4731, 4732 or 4736, set the 
TYPE parameter on the CRTCTLAPPC 
command to the controller type. Specify 
“NO for the APPN parameter to indicate 
that the controller does not use 
APPN*—LU 6.2. For instance, for a 3694 
controller, specify: TYPE(3694) 
APPN(*NO). 


For a PS/2* work station running FBSS 
with the DOS operating system, specify: 
TYPE(*FBSS) for APPC controllers. 


For a PS/2* work station running FBSS 
with the OS/2* operating system, specify 
either APPN(*YES) or TYPE(*BLANK)._ If 
you specify TYPE(*BLANK), you must set 
the SSCPID parameter to a value other 
than zero. 


Device Descriptions 
At least two device descriptions must be 
created; a finance device and an SNA 
pass-through device. The SNA pass- 
through device description associated with 
the host logical unit is created using the 
CRIDEVSNPT command and must 
specify SNPTCLS(*UP). The finance 
device description is created using the 
CRTDEVFNC command and must specify 
DEVCLS(*SNPT) and TYPE(*FNCICF). 
3270 device descriptions attached to 
finance controllers can also be configured 
as SNA pass-through devices using the 
CRTIDEVDSP and CRTDEVPRT com- 
mands. 


Note: Finance controllers, attached finance 
devices, and attached 3270 devices that are con- 
figured to use SNA pass-through support must be 
reconfigured to allow communications between the 


finance controller and the AS/400 system. To 
reconfigure for communications between the 
finance controller and the AS/400 system, you 
must vary off the configuration objects associated 
with the finance controller (line description, APPC 
controller, and devices) and reconfigure the con- 
troller using the CRTCTLFNC command. If the 
connection uses a switched SDLLC line or X.25 
communications, you must also delete the APPC 
controller description. 


Associating Finance and SNA 
Pass-Through Devices 


SNA pass-through configuration requires that each 
finance device be paired with an SNA pass- 
through device. The logical association of the 
devices can be done in either of two ways: 


e Specify the SNA pass-through device name: 
The SNA pass-through device (SNPTDEV 
parameter) on each device description can 
specify the name of the other device 
description. That is, the finance device 
description SNPTDEV parameter specifies the 
name of the SNA pass-through device; the 
SNA pass-through device SNPTDEV param- 
eter specifies the name of the finance device. 

¢ Specify a group of SNA pass-through devices: 
The SNA pass-through group name 
(SNPTGRP parameter) on each device 
description can specify the name of a group of 
devices. For example, the finance device 
description can specify the name of a group of 
SNA pass-through devices. SNA pass- 
through groups are defined in configuration list 
entries for the QGNAPASTHR configuration 
list. 


This method allows the system to associate 
the finance device with any SNA pass-through 
device defined in the group. When the 
finance device is varied on, the system will 
select the first available SNA pass-through 
device listed in the group specified on the 
SNPTGRP parameter. 


Only one configuration list of type 
*“SNAPASTHR is allowed on the system at 
one time. Use the Add Configuration List 
Entries (ADDCFGLE) command to define SNA 
pass-through groups within the 
QSNAPASTHR configuration list. 


A finance device that specifies DEVCLS(*SNPT), 
SNPTDEV(*NONE), and SNPTGRP(*NONE) can 
be associated with an SNA pass-through device 
only if the SNA pass-through device either speci- 
fies the name of the finance device on the 
SNPTDEV parameter or specifies an SNA pass- 
through group (SNPTGRP parameter) that 
includes the finance device. 


See the book, Remote Work Station Support, 
SC41-5402 for more information and examples of 
configuring SNA pass-through support. 


Using the Work with Table 
Commands to Configure 
Non-Intersystem 
Communications Function 
(Non-ICF) Finance 


You can use the following commands to configure 
the Submit Finance Job (SBMFNCJOB) command 
for non-ICF finance communications. For more 
information about the syntax or parameters for 
these commands, see the CL Reference book. 


Work with Device Table 
Command 


A finance device table is a list of finance devices 
that can be acquired by the finance job using the 
SBMFNCJOB command. Use the Work with 
Device Table (WRKDEVTBL) command to create, 
change, delete, or display finance device tables. 


Device table updates can be used by any finance 
job that is submitted after all changes are done. 


When you enter the WRKDEVTBL command, the 
Work with Device Tables display appears: 


[ | 
Work with Device Tables 


Position to ...... 


Type options (and Device Table), press Enter. 
1=Create 2=Change 4=Delete 5=Display 


Device 
Opt Table Text 


BANKDEVI Sample device table used with SBMFNCJOB command 
BANKDEV2 Second sample device table 

BANKDEV3 Third sample device table 

BANKDEV4 Fourth sample 
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Create a new table 
Create one new table at a time by typing a 1 
in the first blank line under the Opt column 
and typing in the new name. 


Change a table 
Select a table to change by typing a 2 next to 
the table name in the list, or by typing a 2 in 
the first blank line under the Opt column and 
typing in the name. 


Delete one or more tables 
Type a 4 next to each table you want to 
delete. 


Display a table 
Type a 5 next to the name of the table you 
want to display. 


The Create Device Table display appears when 
you select option 1 (Create) on the Work with 
Device Tables display: 


— 


Create Device Table 


To add a device name, enter the device on one of 
the input lines supplied. The device name you 
add should have a device description (created 
using the CRTDEVFNC command) with the same 
name (DEVD parameter) and a device type of 
3624 or 4704. Messages appear warning you that 
the device description does not yet exist, or that 
the device type is not 3624 or 4704, but the 
device name is still added to the table. You can 
also specify up to 50 characters of descriptive text 
for the new table on the line supplied. 


Work with User Table Command 


The finance user table is a list of approved finance 
user IDs. The finance job uses these IDs to 
approve user IDs sent in the data stream with the 
INIT-SELF request from the finance controller. 
Finance user IDs are not related to user profiles. 


Use the Work with User Table (WRKUSRTBL) 
command to create, change, delete, or display any 
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number of user tables that define the finance user 
IDs. Each table must have a unique name. 


User table updates can be used by any finance 
job that is submitted after all changes are done. 


When you enter the WRKUSRTBL command, the 
Work with User Tables display appears: 


[ | 
Work with User Tables 


POSTLION. TO) eters, pets 


Type options (and Program Table), press Enter. 
l=Create 2=Change 4=Delete 5=Display 


User 
Opt Table Text 


TESTUSERS third sample user table 

TESTUSR1 another sample table 

TESTUSR2 

USERS1 Sample user table for SBMFNCJOB command 
USERS2 second sample user table 


Create a new table 
Create one new table at a time by typing a 1 
in the first blank line under the Opt column 
and typing in the new name. 


Change a table 
Select a table to change by typing a 2 next to 
the table name in the list, or by typing a 2 in 
the first blank line under the Opt column and 
typing in the name. 


Delete one or more tables 
Type a 4 next to each table you want to 
delete. 


Display a table 
Type a 5 next to the name of the table you 
want to display. 


The Create User Table display appears when you 
select option 1 (Create) on the Work with User 
Tables display: 


Create User Table 


To add a user table, enter the user ID on one of 
the input lines supplied. You can specify up to 50 
characters of descriptive text for the new table on 
the line supplied. 


Work with Program Table 
Command 


The finance program table is a list of your AS/400 
transaction-processing application programs, with 
their associated program IDs. These program IDs 
are included with the data in the transaction 
request by a finance controller. The program ID is 
then used to call the correct AS/400 application 
program to process the transaction. 


Use the Work with Program Table (WRKPGMTBL) 
command to create, change, delete, or display, 
any number of program tables. Each table must 
have a unique name. 


Program table updates can be used by any 
finance job that is submitted after all changes are 
done. 


When you enter the WRKPGMTBL command, the 
Work with Program Tables display appears: 


[ ‘i 
Work with Program Tables 


Position to ...... 


Type options (and Program Table), press Enter. 
1=Create 2=Change 4=Delete 5=Display 


Program 
Opt Table Text 


PONTE. sample program table 

PGMTBL2 another sample table 

PROGRAMS1 sample program table for SBMFNCJOB 
PROGRAMS2 second sample program table 


Create a new table 
Create one new table at a time by typing a 1 
in the first blank line under the Opt column 
and typing in the new name. 


Change a table 
Select a table to change by typing a 2 next to 
the table name in the list, or by typing a 2 in 
the first blank line under the Opt column and 
typing in the name. 


Delete one or more tables 
Type a 4 next to each table you want to 
delete. 


Display a table 
Type a 5 next to the name of the table you 
want to display. 


The Create Program Table display appears when 
you select option 1 (Create) on the Work with 
Program Tables display: 


Create Program Table 


Program table ... . :  PGMTBL2 


Type information, press Enter. 


Program Library 
kool PGM1 FINANCE 


K005 PGM3 *LIBL 


Enter new program IDs and program names by 
typing the following information on one of the extra 
input lines supplied: 

PROGRAM ID (required) 


PROGRAM NAME (required) 
LIBRARY NAME (optional - *LIBL is default) 


A message appears warning that the program or 
the library does not exist. However, entries are 
still added to the table. You can also specify up 
to 50 characters of descriptive text for the new 
table on the line supplied. 
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Chapter 4. Running Finance Support 


This chapter contains information you need to run 
your network, including information about the Vary 
Configuration (VRYCFG) command and the Work 
with Configuration Status (WRKCFGSTS) 
command. 


Varying Finance On and Off 


You must define and vary on the communications 
configurations before using your communications 
applications. You can specify the configurations 
to be automatically varied on at initial program 
load (IPL) when you create your configurations. 
You can also use the Vary Configuration 
(VRYCFG) command or the Work with Configura- 
tion Status (WRKCFGSTS) command to vary on 
and off the appropriate network interface line, con- 
troller, and device descriptions. 


Using the Vary On Configuration 
Command 


When using the VRYCFG command, specify the 
following parameters: 


CFGOBJ 
Specifies the name of the line, controller, or 
device description to be varied on or off, or a 
list of names of configuration objects of the 
same description type (for example, a list of 
line description names). 


CFGTYPE 
Specifies the type of configuration to be varied 
on or off. This is a required parameter. Valid 
entries are: 


¢ *CTL: Controller configuration 
e *DEV: Device configuration 
e *LIN: Line configuration 


STATUS 
Specifies the status of the configuration 
object. Valid entries are: 


e *ON: Object is varied on. 
e¢ *OFF: Object is varied off. 
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Note: All devices must be varied off 
before the attached controller can be 
varied off. All controllers must be varied 
off before the associated line can be 
varied off. (This can be done by using the 
RANGE parameter.) A device can be 
varied off only when it is not allocated for 
an active job. 


RANGE 
Specifies what group of configuration objects 
should be varied on or off. Valid entries are: 


e *NET: All downline configuration objects 
are varied on or off. Downline objects are 
devices attached to a controller and con- 
trollers that are attached to a communica- 
tions line in a communications 
configuration. 


e¢ *OBJ: Only the specified object is varied 
on or off. 


Note: When *NET is specified, the 
system does the vary off procedures in 
the appropriate order. The objects include 
the configuration object or objects speci- 
fied and their attached configuration 
objects only. For example, for a commu- 
nications line, the attached objects are 
controllers and devices; for a controller, 
the attached objects are devices. Devices 
do not have attached objects. 


VRYWAIT 
Specifies whether the Ethernet, token-ring, 
X.25, or switched SDLC line description is 
varied on asynchronously or synchronously. 
The VRYWAIT parameter specifies how long 
the system must wait for synchronous vary on 
to be completed. Once completed, the ICF 
file can be opened and the session acquired. 


¢ *CFGOBJ: Specifies that the VRYWAIT 
parameter value on the line description is 
to be used. 


¢ *NOWAIT: Specifies that the line is to be 
varied on asynchronously. This signals 
the system not to wait for vary on com- 
pletion. 
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¢ vary-on-wait: Specifies a value ranging 
from 15 through 180 seconds in 1-second 
intervals. The system waits until either 
the line is varied on or the timer expires 
before completing the VRYCFG 
command. 


ASCVRYOFF 
Specifies whether the vary off is asynchro- 
nous. This parameter is not allowed when the 
STATUS(*ON) parameter is specified. Valid 
entries are: 


e¢ *NO: The vary off is synchronous. 
e *YES: The vary off is asynchronous. 


Using the Work with 
Configuration Status Command 


Using this command, you access the Work with 
Configuration Status display. 


On the Work with Configuration Status display, 
you can choose the following options: 


e Vary on (option 1): Varies on the line, con- 
troller, or device and all of the attached con- 
trollers or devices. This is the same as using 
the Vary Configuration (VRYCFG) command 
with STATUS(*ON). 


e Vary off (option 2): Varies off the line, con- 
troller, or device and all of the attached con- 
trollers or devices. This is the same as using 
the Vary Configuration (VRYCFG) command 
with STATUS(*OFF). You may vary off 
devices only if they are not allocated to an 
active job. Jobs can be canceled if you need 
to vary off a device. 


For the syntax of the VRYCFG and WRKCFGSTS 
commands, see the CL Reference book. For 
more information about the VRYCFG and 
WRKCFGSTS commands, see the Communica- 
tions Management book. 


Defining Communications Entries 


IBM supplies two subsystem configurations to 
support ICF finance communications. These are 
QBASE, the controlling subsystem, and QCMN, 
the communications subsystem. The controlling 
subsystem is the interactive subsystem through 
which the system operator controls the system. 
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The communications subsystem is used when 
QCTL is the controlling subsystem. If either of 
these subsystems is active, program start 
requests may be accepted for finance communica- 
tions. 


The AS/400 system considers communications 
controllers to be another source of work for the 
subsystem. Therefore, you must use a commu- 
nications entry in the subsystem description to 
identify the devices from which work (the program 
start request) can be received by the subsystem. 
To create subsystem descriptions using the 
Create Subsystem Description (CRTSBSD) 
command, see the CL Reference book. 


Default communications entries are shipped with 
the subsystem. QBASE and QCMN subsystem 
descriptions are shipped with a default commu- 
nications entry specified as DEV(*ALL) and 
MODE(*ANY) to allow program start requests from 
any ICF communications type. With the following 
commands, you can change these entries: 


e¢ Add Communications Entry (ADDCMNE): 
Adds a device or devices to the subsystem. 


¢ Remove Communications Entry (RMVCMNE): 
Removes a device or devices from a sub- 
system. 


¢ Change Communications Entry (CHGCMNE): 
Changes an existing entry for a device. 


Note: These commands cannot change the com- 
munications entries of the subsystem if the sub- 
system is active. 


For more information about these commands, see 
the Communications Management book. For 
more information about managing your subsys- 
tems, see the Work Management book. 


Starting the Finance Subsystem 


The appropriate subsystem must be started if you 
want to use finance devices. 


Non-Intersystem Communications 
Function: For non-ICF finance, the finance 
subsystem (QFNC) must be started by using the 
Start Subsystem (STRSBS) command before you 
can use the Submit Finance Job (SBMFNCJOB) 
command. 


Intersystem Communications Function 
Finance: For ICF finance, the appropriate sub- 
system must be started before program start 
requests can be received from the finance con- 
troller. Use the Start Subsystem (STRSBS) 
command to start a subsystem to be used for ICF 
finance communications. 


Chapter 4. Running Finance Support 
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Chapter 5. Writing Intersystem Communications Function 


Finance Application Programs 


This chapter describes how an application 
program uses the AS/400 system, intersystem 
communications function (ICF) support, and 
finance communications to communicate with a 
finance controller. You can code the program 
using supported, high-level language programs to 
do the following functions: 


e Start a session by opening a file and acquiring 
a program device, either explicitly or implicitly. 


e Send and receive information by writing or 
reading to a program device. 


e End a session by releasing the program 
device and closing the file. 


Notes: 


1. Check the major and minor return codes, as 
well as any response indicators, after each 
operation that your program issues. 


This chapter also includes a description of the 
read and write operations that specify a record 
format containing specific communications func- 
tions. Record formats can be defined using the 
data description specifications (DDS) keywords or 
system-supplied formats. For a list of DDS 
keywords and system-supplied formats, see 
Appendix A, “Language Operations, DDS 
Keywords, and System-Supplied Formats,” or the 
DDS Reference book. 


To help you write and use programs on the 
AS/400 system, see Appendix E, “Intersystem 
Communications Function Finance Example 
Programs.” 


Using Intersystem 
Communications Function File 
Commands 


An Operating System/400 intersystem communica- 
tions function (ICF) file must be created before 
your application can use finance communications. 
For more information about the ICF file, see the 
book, /CF Programming. 
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The ICF file is a system object type of *FILE with 
a specific user format. This format consists of a 
set of commands and operations. The commands 
allow you to manage the file attributes and allow 
you to create, delete, change, and display the file 
description. The operations allow a program to 
use the file. 


The following commands are valid for finance 
communications: 


CRTICFF 
The Create ICF File command allows you 
to create an ICF file specifying file level 
attributes. 


CHGICFF 
The Change ICF File command allows you 
to change the file attributes of the ICF file. 


OVRICFF 
The Override ICF File command allows 
you to temporarily change the file attri- 
butes of the ICF file at run time. These 
changes are in effect only for the duration 
of the job and do not affect other users of 
the file. 


DLTOVR 
The Delete Override command deletes the 
effect of the OVRICFF command. 


DLTF 
The Delete File command deletes the file 
from the system and frees the storage 
space allocated to that file. 


DSPFD 
The Display File Description command dis- 
plays information about the attributes of 
the device file. 


DSPFFD 
The Display File Field Description 
command displays field-level information 
for a device file. 


ADDICFDEVE 
The Add ICF Device Entry command adds 
a program device entry, with the specified 
device name and atiributes, to the file. 
You can use this command many times to 
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add multiple program devices to the same 
file. 


CHGICFDEVE 
The Change ICF Device Entry command 
changes the program device entry defined 
with the ADDICFDEVE command. 


OVRICFDEVE 
The Override ICF Device Entry command 
overrides the attribute specified in the 
ADDICFDEVE command, or temporarily 
associates the specified program device 
name and attributes with the file. 


This command differs from the 
ADDICFDEVE command in that it does 
not permanently change the ICF file. The 
association between the program device 
entry and the file exists only for the job in 
which the command runs. You can use 
this command many times to override mul- 
tiple program device entries in the file. 


DLTOVRDEVE 
The Delete Override Device Entry 
command deletes the effect of the 
OVRICFDEVE command. 


RMVICFDEVE 
The Remove ICF Device Entry command 
removes one or more program device 
entries from the file. 


DSPOVR 
The Display Override command displays 
overrides created by the OVRICFF file 
command. 


The program device entry associates a program 
device name with a device description. 


The ADDICFDEVE, CHGICFDEVE, and 
OVRICFDEVE commands use the following 
parameters for finance communications: 


FMTSLT 

Determines the format selection option. This 
parameter indicates the type of processing 
used to determine what record format to use 
on input operations. Finance communications 
supports only the program (*“PGM) and record 
identification (“RECID) values of the FMTSLT 
parameter. For more information about the 
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FMTSLT parameter, see the book, /CF Pro- 
gramming. 


PGMDEV 
Specifies the program device name being 
defined (the name used by the program to do 
the operations). The program device name 
must be unique throughout all entries in the 
file. You can map two or more different 
program device names to the same commu- 
nications configurations. 


PGMDEV is a required parameter. 


RMTLOCNAME 
Specifies the remote location name associ- 
ated with the program device. The remote 
location name specifies another system with 
which your system can communicate in an 
SNA network. A remote location is associated 
with any device description that contains the 
same remote location name. 


You cannot configure the same remote 
location name in more than one device 
description. 


The system uses the remote location name to 
select the device description. The 
RMTLOCNAME parameter does not need to 
exist at the time you define the program 
device entry; however, it must exist as a part 
of the device description on the system when 
the program is acquired. If your program is 
started by a program start request, a 
RMTLOCNAME of *REQUESTER must be 
used. 


RMTLOCNAME is a required parameter. 


Starting a Session 


Before your program can communicate with the 
controller program, you must establish an ICF 
communications session. A communications 
session is a logical connection between two 
systems through which a finance controller 
program communicates with a program on an 
AS/400 system. This communications session is 
established with an open/acquire operation and is 
ended with a release operation or an end-of- 
session function or a close operation. 


Starting a Session with a 47xx or 
Financial Branch System 
Services Controller 


You can start the session with the 47xx or FBSS 
controllers in one of two ways: by the controller 
sending an INIT-SELF command and then 
sending a program start request, or by your 


AS/400 program issuing an ICF Acquire operation. 


The following explains how to start a controller- 
initiated session: 


1. Start the SNA session from the controller by 
sending an INIT-SELF command (considered 
a logon request). The AS/400 system sends 
a BIND command to start the SNA session. 
On a secure AS/400 system, the BIND 
command is sent only if the user data field of 
the received INIT-SELF command contains a 
valid user ID and password. 


The user data field may also contain a default 
library name. If the /ibrary name field is 
included, that library is used to search for a 
program that is specified in a program start 
request sent later by the controller (if a spe- 
cific library is not specified on that request). 


2. Start the ICF session and transaction by 
sending a program start request using an 
“EXEC statement. The AS/400 finance 
support starts the program specified on the 
“EXEC statement. The target program issues 
the ICF Acquire operation and establishes the 
session and transaction. 


The following explains how to start an 
AS/400-initiated session: 


1. Start the SNA session from your AS/400 
source program by issuing an ICF Acquire 
operation. This is known as an unsolicited 
start session request because the controller 
does not request the session. 


2. The session and transaction are established 
automatically. 


Starting Your Program: Your finance pro- 
grams can be started by the controller sending a 

program start request or by the use of a manually 
started program. 


Program Start Request from the Controller: 
Typically, your program is started after a program 
start request is received from the controller. The 
program start request contains an “EXEC request 
statement with a program name, an optional 
library name, and optional program parameters. 


Note: Program start requests can be received 
after the AS/400 system sends a BIND command 
and before the AS/400 system sends an UNBIND 
command. 


Additional program start requests received while a 
transaction program is running are treated as user 
data. 


The syntax of the program start request is: 


*EXEC program name[,library name] [optional data] 


Program name 
Name (from 1 to 10 characters in length) of 
the program to be started. The program 
name must start in position 7. A blank must 
be in position 6. 


Library name 
Name (from 1 to 10 characters in length) of 
the library containing the program to be 
started. This parameter is optional. If this 
name is specified on both the INIT-SELF 
command and the *EXEC request statement, 
this library name is used for the program start 
request. If the library name is not specified in 
either place, the program must exist in a 
library of the job description specified in the 
communications entry of the subsystem in 
which it runs. 


Optional data 
From 1 to 512 bytes of optional data following 
the program name or an optional library name. 
A blank must be included between the 
program name, or the optional library name, 
and the data. 


AS/400 System Started Program: You can start 
the program with an AS/400 command or a 
command from another program running on the 
AS/400 system. 
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Starting a Session with a 3694 
Document Processor 


For a 3694 processor, the session and program 
are both started as a result of a program start 
request, which is an INIT-SELF request sent by 
the controller. On a secure AS/400 system, this 
INIT-SELF must also include information for deter- 
mining a user ID and password. 


Note: ICF finance supports only target programs 
for the 3694 processor. The 3694 must always 
establish the session to start the program on the 
AS/400 system. The AS/400 system cannot ini- 
tiate a session on the controller. 


If the 3694 processor sends optional data in the 
user data field, there must be a minimum of 10 
bytes of data in the following format: 


Figure 5-1. User Data Field Information 


User Data Field Description 

1 Request code. 

2 through 4 User ID; these 3 characters are 
added to USER to form the user 
identifier. 

5 through 8 Password. 


9 through 10 These 2 characters are added 
to LIB to form the library name. 
If these characters are 00, the 
current library list of the sub- 
system containing the commu- 


nications entry is used. 


The name of the program to be started is speci- 
fied in the destination logical unit (DLU) field of the 
INIT-SELF command. For more information about 
the INIT-SELF command format, see Figure 7-2 
on page 7-7. 


Open/Acquire Operation 


Communications sessions using ICF finance are 
always started with an acquire operation. Before 
any input or output operations can be directed to a 
program device, the program device must be 
acquired. Your application program uses the 
acquire operation to establish a session between 
your program and the finance controller. To be 
acquired, program devices must be defined to the 
ICF file by using one of the following commands: 
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e Add ICF Device Entry (ADDICFDEVE) 
¢ Override ICF Device Entry (OVRICFDEVE) 


A program device can be implicitly acquired 
through the open operation or explicitly acquired 
through the acquire operation. The acquire opera- 
tion can be used many times with different 
program device names. When you explicitly 
acquire a device using the acquire operation, you 
identify the session you want to establish by using 
the same program device name on the acquire 
operation as you specified on the PGMDEV 
parameter for the ADDICFDEVE or the 
OVRICFDEVE command. 


You must specify the RMTLOCNAME parameter 
on the Add or Override ICF Device Entry 
command. lf the session is a controller-initiated 
session, you must specify *REQUESTER for the 
RMTLOCNAME parameter. If the session is an 
AS/400 system-initiated session, you must assign 
a value for the RMTLOCNAME parameter. The 
parameter must match the remote location name 
in the device description with which you want to 
communicate. For more information about starting 
your program, see “Starting Your Program” on 
page 5-3. 


You can use the wait file (WAITFILE) parameter of 
the CRTICFF, OVRICFF, or CHGICFF command 
to specify the maximum amount of time you want 
to wait for session resources to become available. 


Note: The WAITFILE value is not used for ses- 
sions where the connection to the controller is 
over a switched connection, for example, a SDLC 
switched line, a X.25 SVC, Ethernet, or a Token- 
Ring connection. 


Sending Data 


Data is sent to and received from the controller by 
using write, read, and write-with-read operations. 
The write operations are done using a record 
format. The results of these operations are sent 
to the program by using major and minor codes, 
high-level status values, and the input/output feed- 
back area. 


Finance communications buffers data. The first 
record and the last record of a group of records 
are sent to the controller prior to the completion of 
the output operation. However, output operations 
for records that are not the first or last in a group 


of records are buffered by finance communica- 
tions. These records are sent when the buffer 
becomes full, or when the last record of the group 
is sent. 


Write Operation 


The write operation passes one or more data 
records from the AS/400 program to the remote 
controller program in this session. Finance com- 
munications determines the size of the record 
from the MAXLENRU parameter in the device 
description and will block your data into as many 
records as needed. 


Note: Finance communications does not support 
multiple record groups for the 3694 processor. 


Finance communications supports write operations 
while the session is invited. If the write operation 
ends successfully, and if the invite function is not 
specified on the write operation, the session is no 
longer invited when the write operation ends. If 
the write operation does not end successfully, or if 
the invite function was specified on the write oper- 
ation, the session remains invited. 


Force-Data Function 


Your program uses the force-data function to send 
immediately (without waiting for the buffer to 
become full) any data currently being held in the 
buffer. Any data specified on the same operation 
as the force-data request is also sent. If data is 
not specified on a write operation with the force- 
data function, a null record is sent. 


For more information about buffering data, see 
“Buffering” on page 7-1. 


End-Of-Group Function 


Use the end-of-group (ENDGRP) function to indi- 
cate the end of a user-defined group of records. 
When the ENDGRP function is issued, the control 
of the session goes back to a contention state. 
Then, either the AS/400 system program or the 
controller program can send data. When the 
ENDGRP function is used, finance communica- 
tions requires a response from the finance con- 
troller to the group just sent. Control is not 
returned to the application program until a 
response is received. 


Note: This function does not apply for a 3694 
controller. 


Function-Management-Header 
Function 


Use the function-management-header function to 
send control information to the controller program 
about the data following the function-management- 
header. You must designate data on a write oper- 
ation that specifies the 
function-management-header function. Your 
program is responsible for creating the function- 
management-header. 


Receiving Data 


You can use the read and read-from-invited- 
program-device operations to receive data. When 
your program receives data with a read or read- 
from-invited-program-devices operation, all the 
records of the group are given to your program. A 
read operation does not end until the entire group 
of records is received by the finance communica- 
tions support. 


For 47xx and FBSS controllers, the read operation 
also closes a partially sent group of records. Ifa 
group of records is implicitly closed by a read 
operation, a response from the controller program 
to the group of records being sent is not required. 


Read Operation 


Your program uses the read operation to obtain 
data from the controller. This operation causes 
finance communications to obtain data from the 
controller program with which your program is 
communicating. The read operation causes your 
program to wait for the data if it is not immediately 
available. Your program receives control when 
the data is available. The READ operation waits 
until a complete group of records is received. If 
an SNA Cancel command is received, the data is 
discarded and the read operation waits for the 
next complete group of records. 


Finance communications always waits until an 
entire group of records is received before 
returning control to your program. If the length of 
the field in the record format you are using is large 
enough, the maximum data length that can be 
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received is the value you specified in the 
MAXRCDLEN parameter of the Create ICF File 
(CRTICFF), Change ICF File (CHGICFF), and 
Override ICF File (OVRICFF) commands. If the 
format you are using is not large enough, you 
receive an error return code. 


You do not need to issue an invite function before 
a read operation to receive data. However, if a 
program device has an outstanding invite to which 
a read is issued, the read completes the invite and 
receives the data. 


Note: The read operation obtains data from a 
specified program device while the read-from- 
invited-program-devices allows data to come from 
any previously invited program device. 


When a group of records is partially sent by your 
program, a read operation or a write-with-read 
operation that does not explicitly specify the end- 
of-group function implicitly sends the end-of-group 
function. When the group is closed implicitly, no 
response is required from the controller. 


Note: A response is always required for a 
system monitor session, regardless of whether the 
group was implicitly or explicitly closed. 


Invite Function 


The invite function prepares your program to 
receive data. You must perform an output opera- 
tion with the INVITE DDS keyword or with a 
system-supplied format to issue an invite function. 
You can combine additional output functions or 
data with the invite function. Your program can 
continue processing after issuing the invite request 
and does not need to wait for the data to arrive. 


If a group of records was partially sent by your 
program, combining additional output functions or 
data with the invite function causes an implicit 
end-of-group function to be sent. If the end-of- 
group function is not explicitly specified (by using 
the end-of-group DDS keyword) with the invite 
function, a response to the group of records is not 
required. 


Note: For a system monitor session, a response 
is required regardless of whether the end-of-group 
function was implicitly or explicitly specified. 
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Your program must issue a read-from-invited- 
program-devices operation or read operation to 
obtain the data. 


Read-from-Invited-Program-Devices 
Operation 


The read-from-invited-program-devices opera- 
tion is an input operation that waits for input from 
any one of the invited program devices for a user- 
specified time. The read-from-invited-program- 
devices operation follows the invite function. After 
issuing an invite function, use the read-from- 
invited-program-devices operation to receive data 
from any previously invited program devices. The 
operation always ends when any of the invited 
program devices have received a complete group 
of records, or if the time limit set by the timer func- 
tion has elapsed. 


Waiting for a Display File, an ICF 
File, and a Data Queue 


You can use data queues for a program that waits 
for data on a display file, an ICF file, and a data 
queue at the same time (in any combination). 
When you specify the DTAQ parameter for the fol- 
lowing commands: 


¢ Create Display File (CRTDSPF) 

¢ Change Display File (CHGDSPF) 
¢ Override Display File (OVRDSPF) 
¢ Create ICF File (CRTICFF) 

¢ Change ICF File (CHGICFF) 

¢ Override ICF File (OVRICFF) 


you can indicate a data queue that will have 
entries placed on it when either of the following 
occurs: 


e An enabled command key or Enter key is 
pressed from an invited display device. 


e Data becomes available from an invited ICF 
session. 


By using the IBM-supplied QSNDDTAQ program, 
jobs running on the system can also place entries 
on the same data queue as the one specified in 
the DTAQ parameter. 


For an ICF file or display file, the application 
program uses the IBM-supplied QRCVDTAQ 
program to receive each entry placed on the data 
queue and then processes the entry based on 


whether it was placed there by the display file, by 
an ICF file, or by the QSNDDTAQ program. For a 
display file, the application then issues a read or 
read-from-invited-program-devices operation to 
receive the data. For more information on the 
QRCVDTAQ function and syntax, and examples of 
waiting on one or more files and a data queue, 
see the CL Programming book. 


The display file or ICF file entry that is put on the 
data queue is 80 characters in length and contains 
the field attributes described in Figure 5-2. There- 
fore, the data queue that is specified using the 
commands listed above must have a length of at 
least 80 characters. 


Entries placed on the data queue by jobs using 


QSNDDTAQ are defined by the user. 


Figure 5-2. Display File and ICF File Entry Field Attributes 


The type of file that placed the entry on the data queue. This field can have one of two values: 


If the job receiving the data from the data queue has only one display file or one ICF file open, 
then this is the only field that needs to be used to determine what type of entry has been 


Unique identifier for the file. The value of the identifier is the same as the value in the open 
feedback area for the file. This field should be used by the program receiving the entry from 
the data queue only if more than one file with the same name is placing entries on the data 


The name of the display or ICF file. This is the name of the file actually opened after all over- 
rides have been processed and is the same as the file name found in the open feedback area 
for the file. This field should be used by the program receiving the entry from the data queue 
only if more than one display file or ICF file is placing entries on the data queue. 


The library where the file is located. This is the name of the library after all overrides have 
been processed and is the same as the library name found in the open feedback area for the 
file. This field should be used by the program receiving the entry from the data queue only if 
more than one display file or ICF file is placing entries on the data queue. 


The program device name after all overrides have been processed. This name is the same as 
that found in the program device definition list of the open feedback area. For file type *DSPF, 
this is the name of the display device where the command or Enter key was pressed. For file 
type *ICFF, this is the name of the program device where data is available. This field should be 
used by the program receiving the entry from the data queue only if the file that placed the 
entry on the data queue has more than one device or session invited prior to receiving the data 


Position Data Type Meaning 
1 through 10 Character 
¢ *ICFF (ICF file) 
¢ *DSPF (display file) 
received from the data queue. 
11 through 12 Binary 
queue. 
13 through 22 Character 
23 through 32 Character 
33 through 42 Character 
queue entry. 
43 through 80 Character Reserved. 


Notifying the Remote Program of 
Problems 


Use the fail, cancel, and negative-response func- 
tions to inform the remote program about any 
errors in the data being sent or received. 


Fail Function 


sent. A cancel indication is sent to the controller 
program. 


You can use the fail function if your program 
receives data and finds an error in the received 
data. After finding the error, your program should 
issue the fail function as the next operation. A 
negative response with a sense code of 


Use the fail function to indicate an error has 
occurred when sending or receiving data. 


If a program that is sending data issues a fail 
function, this indicates that errors exist in the data 
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08110000 is sent to the controller from the AS/400 
system. 


Cancel Function 


If you are sending data and decide to end a par- 
tially sent group of records, you can use the 
cancel function to cancel a group of records pro- 
viding you have not sent the end-of-group indi- 
cator. Any buffered data is sent before the cancel 
request is sent. 


The cancel function is not valid for the 3694 
processor. 


Negative-Response Function 


If you are receiving data, use the negative- 
response function to inform the remote program 
that the data it sent contained an error. 


Using a negative-response function is similar to 
issuing a fail function when receiving data, except 
that you can also include eight characters of 
sense data with the negative-response function. 
The sense data tells the sending system about the 
error in the data you received. The first two char- 
acters of the sense data must be either 10 or 08 
or the first four characters must be 0000. All char- 
acters must be a value from 0 though 9, from A 
through F, or from a through f. For more informa- 
tion about sense data, see the Systems Network 
Architecture Reference Summary book. 


The sense data accompanying the negative 
response goes to the normal output buffer. No 
other data can be sent with a negative-response 
function. If a sense code is not specified, a 
default sense code of 08110000 is used. 


Using Additional Functions and 
Operations 


The following functions give you additional control 
over the finance operations. 
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Cancel-Invite Function 


If a program device is invited, you can use the 
cancel-invite function to cancel the invite function 
if data has not been received for the invited- 
program device. The cancel-invite function allows 
your program to cancel an invite operation, after 
which you can issue an input or output operation. 
If finance communications has already received 
data for the program device from the controller, 
the cancel-invite function is rejected with a 0412 
return code. 


Timer Function 


Your program can use the timer function to set a 
timer and wait for it to end before performing 
some specified function. The timer function speci- 
fies an interval of time (in hours, minutes, and 
seconds) to wait before your program receives a 
timer-expired return code (0310). 


Your program continues to run and all operations 
are valid during the time interval. To determine if 
the time limit set by the timer function elapsed, 
your program must use the read-from-invited- 
program-devices operation after issuing the timer 
function. 


For more information about the timer function, see 
the ICF Programming book. 


Get-Attributes Operation 


You can use the get-attributes operation at any 
time after the file has been opened to determine 
the status of a program device. If the program 
device is not acquired, the information is obtained 
from the program device entry defined with the 
ADDICFDEVE or OVRICFDEVE command. 


Ending a Session 


The AS/400 application program must end the ICF 
finance session by using a release operation or an 
end-of-session function. Ending an ICF session 
does not necessarily affect the SNA session. 


If the SNA session was established as a result of 
the remote system sending an INIT-SELF request, 
the SNA session may still be intact after your 
program ends the ICF finance session. 


If the SNA session was established as a result of 
a source program issuing an ICF Acquire opera- 
tion (an unsolicited start session request), the 
SNA session ends when the source program ends 
the ICF finance session. 


The controller may request that the SNA session 
end by sending a TERM-SELF command, a 
Request Shutdown (RSHUTD) command, or an 
UNBIND command. 


If no ICF session exists on the SNA session, you 
can end the SNA session by varying off the device 
using the VRYCFG command. For more informa- 
tion about SNA considerations, see “Systems 
Network Architecture (SNA)” on page 7-7. 


Release Operation 


For a source program, you can explicitly release a 
program device from an ICF file by using the 
release operation, or you can implicitly release the 
device by closing the file. If you release the 
program device, you must acquire it again before 
you can issue input/output operations. The 
release operation is accepted only if the program 
is not invited, if the last write operation contained 
an end-of-group indicator, and if no more data is 
waiting to be read. 


For a target program, the release operation ends 
the logical connection between your program and 
the remote controller program. The program, or 
another program in the same job, can establish 
the connection again by acquiring the program 
device again. The communications session, 
including the state of the session, remains intact. 


End-of-Session Function 


The end-of-session function always ends the 
finance session. When your program issues an 
end-of-session (EOS) function, finance commu- 
nications ends the program’s attachment to the 
session and frees the resources used during the 
session. Those resources are then made avail- 
able to other programs waiting to establish a 
session. If you issue an end-of-session function 
when either your system or the controller program 
is sending or receiving data, finance communica- 
tions still ends the session. 


Note: The end-of-session function always ends 
the session if it exists. The only possible return 


codes from an end-of-session function are 0000 
(normal end) or 830B (program device not 
acquired). 


Close Operation 


The processing done by the close operation 
depends on whether or not the file is shared. If 
the file is not shared, the file resources allocated 
by the open operation are deallocated and 
returned to the system. 


If the file is shared, the program cannot do 
input/output operations on the file. Other pro- 
grams that have the file open can still use the file. 


If a close operation is successful, only an open 
operation is allowed to be used with the file. If the 
close operation fails, the program should issue the 
close operation a second time. A second close 
operation is always successful. 


For a target program, the close operation ends the 
logical connection between your program and the 
remote controller program. The program or 
another program in the same job can establish the 
connection again by opening the file and acquiring 
the program device again. The communications 
session, including the state of the session, 
remains intact. 


Using Response Indicators 


Response indicators are specified in a 
1-character field that is passed with an input 
record from the system to a program to provide 
information about the data record or actions taken 
by the work station user. To determine which 
response indicators to use when your program 
does a read operation, consider the following: 


e What data was received from the remote 
program? 


e What does the remote program expect of your 
program? 


e¢ What will be the next operation from your 
program? 


Response indicators are only effective for input 
operations or a combined output, then input oper- 
ation. They have no effect on an output opera- 
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tion. You can use multiple response indicators for 
a single input operation. 


Receive End-of-Group 


Use the receive end-of-group (RCVENDGRP) 
response indicator to determine if your program 
received a group of records. You receive one 
end-of-group record only once per group, and only 
one record contains the end-of-group indication. 
The major return code can be either 00, 02, or 03 
and the minor return code is 03 or 07. 


Receive 
Function-Management-Header 


Use the receive function-management-header 
(RCVFMH) indicator to determine if your program 
received a function-management-header indicator. 
The major return code is 00 and the minor return 
code is 07 for the function-management-header 
indicator. 


Receive Negative-Response 


Use the receive negative-response 
(RCVNEGRSP) indicator to determine if an error 
exists in data that your program has sent. The 
major return code is 83 and the minor return code 
is 19 for the data sent by the RCVNEGRSP indi- 
cator. 


Using Input/Output Feedback 
Area 


The input/output (I/O) feedback area contains the 
results of read and write operations for your 
finance application programs as communicated by 
ICF return codes. This feedback area consists of 
two parts: 


¢ A common input/output feedback area con- 
taining information affecting all communica- 
tions types 


¢ A file-dependent input/output feedback area 
containing information affecting one or more 
communications types 


Offset 38, in the file-dependent part of the I/O 
feedback area, applies to finance. This field con- 
tains negative-response error data. For return 
code 8319, this area contains sense data indi- 
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cating the reason the operation failed. For more 
information about sense codes, see the book SNA 
Formats. 


For more information about the input/output feed- 
back area, see the /CF Programming book. 


Using Return Codes 


After an operation ends, a return code (and a 
high-level language file status) is sent to your 
application. This return code indicates if your 
operation ended successfully. Exception mes- 
sages can also be issued along with the return 
code. For more information about return codes, 
see Appendix B, “Return Codes, Messages, and 
Sense Codes.” For more information about the 
high-level file status, see the appropriate language 
reference book. 


Note: ILE C/400 language does not use high- 
level file status. However, your ILE C/400 
program can use the errno.h statement to check 
for any I/O exceptions that may occur and to 
retrieve any exception data associated with the 
error. Your program should check the return code 
to determine the following: 


e Status of operation just ended 
¢ Operation to be done next 


For example, when issuing a read operation, a 
major return code of 00 on an input operation indi- 
cates that the operation ended successfully. 

Along with this major code, you can also receive 
one of the following minor return codes from 
finance communications: 


01 Indicates your program completed a suc- 
cessful invite function. 


03 Indicates that your program has received a 
group of records. 


07 Indicates that a function-management- 
header was received by your program in 
this group of records. 


Another example is a major code of 83, which 
indicates an error was found that could be recov- 
erable. Different minor codes can be returned 
with this major code, just as with major return 
code 00. For example, if your program receives a 
return code of 831C, this means your program 
failed to correctly process a return code to a pre- 
vious write operation. Data was available to be 


received. To correct the problem, issue an input operation completes successfully or that appro- 


operation to receive the data. priate recovery action was taken. 
Your program should check ICF return codes For a description of return codes that can be 
when every operation ends to be certain that the returned to your finance application, see 


Appendix B, “Return Codes, Messages, and 
Sense Codes.” 
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Chapter 6. Writing Non-Intersystem Communications 


Function Application Programs 


The information in this chapter is intended to help 
the customer write finance application programs 
using the non-ICF interface. It contains 
general-use programming interfaces, which allow 
the customer to write programs that use the ser- 
vices of the OS/400 program. 


This chapter describes starting a non-ICF finance 
application program using the Submit Finance Job 
(SBMFNCJOB) command. It also discusses using 
finance input/output manager (FIOM) and user- 
defined data stream (UDDS). 


Using non-ICF finance represents three levels of 
support, with the SBMFNCJOB command pro- 
viding the most support. Your application pro- 
grams are not required to do any communications 
operations, since non-ICF finance communicates 
through a display file using UDDS. UDDS gives 
your program total control of the data stream. 
Using FIOM allows your program to communicate 
with finance devices by calling input/output (I/O) 
routines rather than doing communications oper- 
ations. 


Figure 6-1 shows the input data format for 
non-ICF finance. The incoming data contains a 
3-byte header. The outgoing data format for 
non-ICF finance must contain UDDS control bytes 
and a 4700 finance control byte, as shown in 
Figure 6-2. 


‘Fx 


‘Fax 


Figure 6-1. Incoming Data Control Bytes 


© Copyright IBM Corp. 1997 


Control Control Data 


1 5 6 7 


CHARACTER VALUE 
9 - 3694/4700 data follows 
4 - Send SNA positive response to INIT-SELF 
or TERM-SELF 
2 - Send SNA negative response to INIT-SELF 
Finance or TERM-SELF, where the data contains 4 
Control bytes of SNA sense data 
Character 3 - LUSTAT command follows, where the data 
contains the LUSTAT '04'X command 
followed by 4 status bytes 
4 - Request INIT-SELF from finance device 
5 - Invite data without writing 
6 - Send data with function mana gement 
header (FMH) (used for 3694 controller) 


Figure 6-2. Outgoing Data Control Bytes 
Figure 6-3 shows the operations you can do with 


each method without directly specifying the opera- 
tion in your program. 


Figure 6-3. Operation Capabilities for Non-ICF Finance 


Operation SBMFNCJOB FIOM UDDS 
Open file Yes No No 
Acquire devices Yes No No 
Handle INIT-SELF Yes No No 
and TERM-SELF 

requests 

Build and format Yes Yes No 
data stream 

Release devices Yes No No 
Close file Yes No No 
Error recovery Yes No No 


For information concerning programming, security 
considerations and procedures for non-ICF com- 
munications, see Chapter 7, “Finance 
Considerations.” 


Using the Submit Finance Job 
Command 


This section describes the SBMFNCJOB 
command, including how and when to use it. Pro- 
cessing examples and information describing how 
to set up a device, user, and program tables are 
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included. These tables are used by the 
SBMFNCJOB command. Error handling is also 
discussed. For more information and a syntax 
diagram of the SBMFNCJOB command, see the 
CL Reference book. 


A finance job started with the SBMFNCJOB 
command is an interface between the AS/400 
finance application programs and the 4701 or 
4702 controller application programs. 


Use the SBMFNCJOB command if all of the fol- 
lowing situations exist: 


¢ The AS/400 system communicates with a 
4701 or 4702 finance controller. 


e A finance device table and a finance program 
table have been defined (defining a finance 
user table is optional) using the WRKDEVTBL 
and WRKPGMTBL commands as described in 
“Work with Device Table Command” on 
page 3-5 and in “Work with Program Table 
Command” on page 3-7. 


e The device types 3277, 3278, or 3279 are not 
entered in your device table. 


e The USER parameter supplied on the job 
description, under which the finance job runs, 
is USER (QFNC). Specify this parameter 
using either the Create Job Description 
(CRTJOBD) or Change Job Description 
(CHGJOBD) command. For more information 
about these commands, see the CL Refer- 
ence book. 


e The 4701 or 4702 controller application 
program sends data, or transactions, first and 
expects to receive data back. 


e The 4701 or 4702 controller application 
program passes data in the proper format, as 
described in “Processing Transactions” on 
page 6-6. 


The SBMFNCJOB command submits a batch job 
to the QFNC subsystem through the QFNC job 
queue. This batch job does the following: 


e Acquires the devices in the device table. 


e Invites these devices to allow data to be 
received from them. 


e Verifies that the user ID received with the 
INIT-SELF request matches an entry in the 
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finance user table. This applies only if a user 
table was created and its name was specified 
in the SBMFNCJOB command. 


¢ Calls the program requested by the finance 
controller to process the transaction if the 
program is specified in the program table. 


¢ Returns data formatted by your AS/400 appli- 
cation to the finance controller. 


e Releases the device when your finance con- 
troller requests a session end. 


Parameters 
When using the SBMFNCJOB command, specify 
the following parameters: 


DEVTBL 
Specifies the name of the device table that the 
finance job uses to determine which 4704 or 
3624 devices the finance job controls. This is 
a required parameter. 


PGMTBL 
Specifies the name of the program table the 
finance job uses to determine, from the 
program ID (sent in the data stream with a 
finance transaction), which system user 
program names process the finance trans- 
action. This is a required parameter. 


USRTBL 
Specifies the name of the user table that the 
finance job uses to verify a finance user when 
a finance sign-on is received. 


JOB NAME 
Specifies the job name that is associated with 
the submitted finance job. The possible values 
are: 


¢ QFNCJOB: The job is submitted as 
QFNCJOB. 

e Job_name. Specify the user-defined job 
name that is associated with the submitted 
finance job. 


JOBD 
Specifies the name of the job description the 
finance job uses. 


MSGQ 
Specifies the name of the message queue, if 
any, to which messages are sent while the 
finance job is running. 


Error Handling 


This section describes error handling support for a 
finance job started with the SBMFNCJOB 
command. 


Input/Output: Finance support attempts error 
recovery whenever a finance job receives an I/O 
exception. When an I/O exception signals a 
finance job, the major/minor return code is 
retrieved from the message to determine the 
potential of recovery from the error. Recoverable 
errors alert the finance job to try recovery. If suc- 
cessful, processing continues normally. If unsuc- 
cessful, further action depends on the nature of 
the error. 


Device errors result in the release of the affected 
device and continued processing of other devices 
associated with the job. However, if recovery is 
not successful, the controller or line errors end the 
job. 


When a permanent I/O error is received, that error 
is handled the same as an unsuccessful recovery. 
Device failures cause the release of the affected 
device but communication with remaining devices 
is continued. If other I/O exceptions are too 
severe to be handled within the job, the job ends. 


Non-Input/Output: For a finance job, the 
SBMFNCJOB command handles non-l/O errors as 
most AS/400 jobs are handled. If an error occurs, 
a message is sent to the message queue associ- 
ated with the finance job. The SBMFNCJOB 
command also allows you to specify the name of 
the message queue where you want certain infor- 
mational messages sent. Messages sent to this 
finance queue relate to general error conditions 
that happen when the finance job runs. 


Some of the informational messages include: 
CP18372 - ERRORS OCCURRED DURING THE START OF FINANCE JOB 
CP18379 - FINANCE TRANSACTION FAILED 

CP18380 - FINANCE DEVICE FAILED 


CP18394 - PROGRAM ID NOT IN PROGRAM TABLE 


This additional message queue allows you to 
supervise the status of your finance jobs more 
effectively. 


For additional information about AS/400 finance 
support messages, see the online message help 
information. 


Supervising Finance Jobs 


To supervise finance jobs, you can do the 
following: 


¢ Specify MSGQ (*NONE) on the SBMFNCJOB 
command when you submit a job. Then, if an 
error occurs when starting finance support, a 
message appears in the message queue. 


e Use the Work with Configuration Status 
(WRKCFGSTS) command to ensure that all 
devices allocated to a finance job have been 
successfully acquired. 


¢ Use the Work with Job Queue (WRKJOBQ) 
command to display any finance jobs that 
have been submitted and are waiting to run 
when the QFNC finance controller is inactive: 


WRKJOBQ JOBQ(QGPL/QFNC) 


e Use the Work with Active Job (WRKACTJOB) 
command to display and change the status 
and performance information for submitted 
finance jobs: 


WRKACTJOB SBS (QFNC) 


e Use the Display Job Log (DSPUOBLOG) 
command, with the job names as parameters, 
to display messages held in the job log when 
running your finance jobs. 


For an explanation of the format and presen- 
tation of the IBM-supplied messages and the 
complete finance support message texts, see 
the online messages. 


For more information about these commands, see 
the CL Reference book and Work Management 
book. 


The SBMFNCJOB command has a JOB param- 
eter that makes supervising and canceling finance 
jobs easier. Use this parameter to supply unique 
names for your finance jobs so that you can easily 
distinguish them from other jobs in your system. 
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Data Flow Examples 


The following figures show data flow examples 
when using the SBMFNCJOB command. 

Figure 6-4 on page 6-4 shows a finance job veri- 
fying that the user ID received from the controller 
application exists in the user table associated with 
that job. 


PROGRAM 


| DEVICE 


USER 
Tellertbl 


r 
TELLER1 SBMFNCJOB CONTROLLER 
TELLER2 -.--Tellert.... 
TELLERS 


SBMFNCJOB DEVTBL (DEV1) PGMTBL (PGM1) USRTBL (TELLERTBL) 
MSGQ (*WRKSTN) 


RV2P872-1 


Figure 6-4. INIT-SELF Request Approved by the User 
Table 
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Figure 6-4 shows how a user ID sent in the 
INIT-SELF data stream is validated using the user 
table named on the SBMFNCJOB command 
parameter. 


Figure 6-5 on page 6-5 represents an environ- 
ment in which more than one finance job is sub- 
mitted. The figure shows that two finance jobs 
control the finance devices. The finance jobs 
share certain application programs but cannot 
share devices. 


Notice in Figure 6-5 that DEVICEA is acquired by 
FNCJOB1 and devices DEVICEB and DEVICEC 
are acquired by FNCJOB2. The two finance jobs 
cannot share devices. Even if only one device 
name is specified in two device tables, only one 
finance job can acquire that device. However, 
finance jobs can share application programs. The 
two finance jobs share programs PGMA and 
PGMD in Figure 6-5 on page 6-5. 


SBMFNCJOB DEVTBL (DEVTBL1) 


SBMFNCJOB DEVTBL (DEVTBL2) 


JOBD (QFNC) 


PGMTBL (PGMTBL1) 


MSGQ (“*WRKSTN) 


USRTBL (USRTBL1) JOB (FNCJOB1) 


DEVTBL1 PGMTBL1 USRTBL1 
DEVICEA PGMA USERA 
PGMC 
PGMD 


PGMTBL (PGMTBL2) 


JOBD (FNCJOBD) MSGQ (FNCQ) 


USRTBL (USRTBL2) JOB (FNCJOB2) 


DEVTBL2 PGMTBL2 USRTBL2 
DEVICEB PGMA USERB 
DEVICEC PGMB 

PGMD 


FNCJOB1 


PGMC 


PGMD 


DEVICEA 


Figure 6-5. Two Finance Jobs Control the Finance Devices 


FNCJOB2 


DEVICEC 


DEVICEB 
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Figure 6-6 shows how a transaction sent in a data 
stream from the controller application, with the 
finance job calling the requested transaction pro- 
cessing program, can be handled. 


DEVICE 


USER 


PROGRAM 
Ctfpgms 


T001 PGMA 
T002 PGMB 


SBMFNCJOB CONTROLLER 


“EXEC T001.... 


PGMB 


PGMA 


RV2P873-0 


Figure 6-6. Controller Processing Transaction T001 


In Figure 6-6, the controller requests processing 
of transaction T001. The SBMFNCJOB interface 
determines from the program table that the 
AS/400 system application PGMA should process 
the transaction. 


Processing Transactions 


By using the SBMFNCJOB command, financial 
transactions can be processed from the 4701 or 
4702 controller on the AS/400 system, or from the 
AS/400 system on the 4701 or 4702 controller. 
This topic describes how each process occurs. 


Sending Data from the Finance Con- 


troller to the AS/400 System: When you 
use the SBMFNCJOB command, the finance con- 
troller application program must use one of the 
data stream formats shown in Figure 6-7. 


Figure 6-7 shows two data streams being sent 
from the finance controller. These data streams 
represent the two formats accepted by the finance 
job. The first data stream format contains the 
characters *EXEC, followed by a single blank, a 
program ID, another blank, and data. The second 
format has no *EXEC characters; this data stream 
begins with the program ID, which is again fol- 
lowed by a single blank and data. 


When you use either data format, the program ID 
(PGM ID) can be of variable length from 1 to 8 
characters and must be followed by a single 
blank. A maximum of 512 bytes of data is allowed 
per transaction. 


> blanks 


(1) “EXEC ( ) PGM ID 


AS/400 System 
« 
SBMFNCJOB at 


Finance 


Controller 


(2) PGM ID 


RSLSO55-3 


Figure 6-7. Format of Data Streams When Using the SBMFNCJOB Command 
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When the finance job receives the data stream 
from the finance controller, it uses the finance 
program table you created to determine which of 
your AS/400 application programs to call. Your 
AS/400 application program is passed through the 
following SBMFNCJOB parameters: 


device name 
A character variable, 10 bytes in length, repre- 
senting the name of the 3624 or 4704 device 
sending the data. 


data length 
A decimal field, 15 bytes in length with 5 
decimal positions, containing the length of the 
data received. 


data 
A character variable, 512 bytes in length, con- 
taining the data received from the finance con- 
troller. The data length parameter determines 
the actual length of the finance data in the 
data parameter. 


Figure 6-8 shows the expected parameters. 


Device Name Char (10) 
Your 
AS/400 System SBMFNCJOB 
Application Data Length Packed (15 5) | <——— Interface 
Program 

Data Char (512) 


SBMFNCJOB Parameters 
RV2P866-0 


Figure 6-8. Parameters Expected by the AS/400 
Application Program 


Note: The maximum size of a character variable 
(referred to in Figure 6-8) might be restricted to 
fewer than 512 bytes by the high-level language in 
which your application programs are written. If so, 
see the programmer's guide for the programming 
language you are using, or the user’s guide for the 
controller application to ensure that the controller 
does not send more data than your AS/400 appili- 
cation program can receive. 


Sending Data from the AS/400 System 


to the Finance Controller: To send data 
from your AS/400 application program back to the 
finance controller application program: 


1. Set the data length parameter to the length of 
the data you want to send. 


2. Move your new data into the data parameter. 


If you do not want to send data back to the 
finance controller application program, set the data 
length parameter to 0 bytes. 


Using Finance Input/Output 
Manager 


This section describes the finance input/output 
manager (FIOM) call, including how and when you 
can use it. Processing specifications and error 
handling are also discussed. 


FIOM is a flexible tool for use in a variety of 
finance environments. FIOM supplies a high-level 
connection to UDDS communications for AS/400 
finance support users. It simplifies logical unit 0 
(LUO) communications between your AS/400 
transaction application program and the controller 
application program. FIOM is an alternative to 
transparent UDDS communications when you 
want direct conversation between your AS/400 
transaction-processing application program and 
the finance controller application. 


The FIOM support formats, sends, and receives 
UDDS. Figure 6-9 and Figure 6-10 on page 6-8 
compare communications using UDDS and FIOM. 
In transparent UDDS communications, shown in 
Figure 6-9, your AS/400 application program com- 
municates with the controller application using 
SNA LUO protocols. Data streams must be 
framed in UDDS control information. 


UDDS AS/400 System 


m Fi 
AS/400 Syste UDDS inance 
icati \¢ >| Controller 
Application 


Application 
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Figure 6-9. Transparent UDDS Communications 


FIOM makes this communication easier as shown 
in Figure 6-10 on page 6-8. Information you 
supply to the FIOM routines allows for UDDS 
communication, yet removes many of the require- 
ments for formatting and sending UDDS in your 
high-level application. 
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FIOM AS/400 System 


(CALL) : upps | Finance 
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Figure 6-10. UDDS Communications with FIOM 


Finance Input/Output Manager 
Routines 


FIOM is called by your program. FIOM consists of 
four routines that can be called as external sub- 
routines by your application programs to do I/O 
operations on a finance device that is configured 
as anon-ICF device. Each of the four routines 
accepts the parameters you supply and then per- 
forms the input/output (I/O) functions. 


The following discussions supply a description of 
each routine. Each of the four FIOM routines dis- 
cussed has an associated DATA parameter. 


The DATA parameter for the following four rou- 
tines allows a 512-byte field. However, an ILE 
RPG/400 program sets the maximum length of a 
character field at a value of 256 bytes. To deter- 
mine the maximum length of data that can actually 
be sent for your application programs, see the 
appropriate programmer’s guide. 


QFN-Write Routine: The QFN-write 
(QFNWRT) routine accepts data from your AS/400 
application program and sends the formatted data 
to the finance device you specify. 


The following formats for the input parameters are 
passed to the QFNWAT routine: 


Device ID 
A 10-byte character field specifying the name 
of the finance device to receive the data. 


Data length 
A decimal field containing the data length to 
be written. The data length is defined as 15 
bytes with 5 decimal positions. The maximum 
data length is 512 bytes. 


Data 
A character field containing data to be written 
to the device. The format of the data depends 
on the value assigned to the data type param- 
eter. If the value of the data type is 0, the 
format of the data depends on protocols 
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established for communications between your 
AS/400 application and the controller applica- 
tion program. If the value of the data type is 
1, QFNWRT ignores the data parameter 
because the data stream being sent to the 
controller application has a specific, predeter- 
mined format. Other data type values, 2 and 
6, correspond to data stream formats that you 
define to satisfy both SNA and AS/400 appli- 
cation program requirements. 


Data type 
A 1-byte character field that contains the type 
of data (4700 control character) written to the 
finance device. Valid data types are: 


0 3694, 4701, and 4702 
1 Positive response 
2 Negative response, with the data 


parameter containing a minimum of 2 
bytes of status code followed by sense 
data 


6 Send 3694 data type with function- 
management-header 


The following example is a call to the QFNWRT 
routine from an ILE RPG/400 program: 


CALL 'QFNWRT' 


PARM WSID 10 
PARM SNDLEN 155 
PARM DATA 256 
PARM WRTTYP 1 


QFN-Write/Invite Routine: The 
QFN-write/invite (QFNWRT!I) routine works in the 
same manner as the QFNWRT routine, and also 
invites a response from the finance device. 


The following formats of the input parameters are 
passed to the QFNWRTI routine: 


Device ID 
A 10-byte character field specifying the name 
of the finance device to receive the data and 
to be invited for communication. 


Data length 
A decimal field containing the length of the 
data to be written. The data length is defined 
as 15 bytes with 5 decimal positions. The 
maximum data length is 512 bytes. 


Data 
A character field containing data to be written 
to the device. The format of this data 


depends on the value assigned to the data 
type parameter. If the value of the data type 
is 0, the format of the data depends on proto- 
cols established for communications between 
your AS/400 application and the controller 
application program. If the value of the data 
type is 4 or 5, the data parameter is ignored 
by the QFNWRTI routine because the data 
stream being sent to the controller application 
has a specific, predetermined format. Other 
data type values, 3 and 6, correspond to data 
stream formats that you define to satisfy both 
SNA and AS/400 application program require- 
ments. 


Data type 
A 1-byte character field containing the type of 
data (4700 control character) written to the 
finance device. Valid data types are: 


0 3694, 4701, and 4702 


3 LUSTAT command follows, with the 
data parameter containing the 
LUSTAT X'04' command, followed by 
a minimum of 2 bytes of status 


4 Request INIT-SELF command from 
finance device 

5 Invite the finance device without 
writing data to the device 

6 Send 3694 data type with the function- 


management-header 


This is an example of a call to a QFNWRTI 
routine from an ILE RPG/400 program: 


CALL 'QFNWRTI' 


PARM WSID 10 
PARM SNDLEN 155 
PARM DATA 256 
PARM WRTTYP 1 


QFN-Read Routine: The QFN-read 
(QFNREAD) routine accepts data sent from a spe- 
cific finance display in response to an invite opera- 
tion sent by the QFNWRTI routine. 


The following parameter formats are passed to the 
QFNREAD routine: 


Device ID 


A 10-byte character input field specifying the 
name of the finance device from which to 
read. 


Data length 


A decimal output field containing the length of 
the data read. The data length is defined as 
15 bytes with 5 decimal positions. The 
maximum data length is 512 bytes. 


Note: The data length parameter must be 
started by your application program and must 
contain a valid packed decimal (15 5) number 
before the QFNREAD routine is called. 


Data 


A character output field containing the data 
read from the finance device. The format of 
this data depends on the parameter value of 
the data type. If the value of the data type is 
1, the format of the data depends on protocols 
established for communications between your 
AS/400 application and the controller applica- 
tion program. If the value of data type is 3, 
the data stream returned to the AS/400 appli- 
cation has a specific, predetermined format. 


Note: The data parameter must represent a 
field in your application program that is large 
enough to contain the expected input data. If 
the receiving field is not large enough, adja- 
cent data space can be overwritten with finan- 
cial data. 


Data type 


A 1-byte output character field containing the 
type of data (4700 control character) read 
from the finance device. Valid data types are: 


1 3694, 4701, and 4702 (no function- 
management-header) 


3 Function-management-header and 
data to follow (INIT-SELF, 
TERM-SELF, or 3694, 4701, and 4702 
data) 


This is an example of a call to a QFNREAD 
routine from an ILE RPG/400 program: 


CALL 
PARM 
PARM 
PARM 
PARM 


"QFNREAD ' 
WSID 10 
RCVLEN 155 
DATA 256 
RDTYP 1 
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QFN-Read/Invited Routine: The 
QFN-read/invited (QFNREADI) routine accepts 
input from any one of the invited finance devices 
associated with the finance job, returning the data 
to your application along with the name of the 
device from which it was received. 


The following parameter formats are passed to the 
QFNREADI routine: 


Device ID 
A 10-byte output character field that specifies 
the name of the finance device from which 
data was read. 


Data length 
A decimal output field containing the length of 
the data that was read. The data length is 
defined as 15 bytes with 5 decimal positions. 
The maximum data length is 512 bytes. 


Note: The data length parameter must be 
started by your application program and must 
contain a valid packed decimal (15 5) number 
before QFNREADI is called. 


Data 
A character output field containing the data 
read from the finance device. The format of 
this data depends on the value of the data 
type parameter. If the value of the data type 
is 1, the format of the data depends on proto- 
cols established for communications between 
your AS/400 application and the controller 
application program. If the value of the data 
type is 3, the data stream returned to the 
AS/400 application has a specific, predeter- 
mined format. 


Note: The data parameter must represent a 
field in your application program that is large 
enough to contain the expected input data. If 
the receiving field is not large enough, adja- 
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cent data space can be overwritten with finan- 
cial data. 


Data type 
A 1-byte character output field that contains 
the type of data (4700 control character) read 
from the finance device. Valid data types are: 


1 3694, 4701, and 4702 data 


3 Function-management-header and 
data to follow (INIT-SELF, 
TERM-SELF, or 3694, 4701, and 4702 
data) 


This is an example of a call to a QFNREADI 
routine from an RPG/400 program: 


CALL 'QFNREADI' 


PARM WSID 10 
PARM RCVLEN 155 
PARM DATA 256 
PARM RDTYP 1 


Error Handling 


Any errors received by the FIOM routines during 
transaction processing produce diagnostic mes- 
sages describing the errors. The CPF8390 
escape message appears after these messages. 
For example, if the FIOM routines receive an I/O 
error, the diagnostic message CPD8289 (I/O 
errors occurred) is signaled and the escape 
message CPF8390 (errors occurred when running 
the program) is sent. Figure 6-11 on page 6-11 
shows a list of the message identifiers sent by the 
FIOM routines. 


The ability of your application program to handle 
error conditions depends on the language in which 
the program is written. For specific error-handling 
capabilities and error-recovery procedures for ICF 
finance, see the programmer’s guide for the lan- 
guage. 


Figure 6-11. FIOM Error Messages 


Message ID Message Description QFNWRT1 QFNWRTIi QFNREAD1 QFNREADI' 
CPD8280 Device not found X X X 

CPD8281 Not authorized to device X X X 

CPD8284 Invalid data length X X 

CPD8286 Invalid format of data length parameter X X X X 
CPD8287 Invalid data type X X 

CPD8289 I/O errors occurred X X X X 
CPD8290 OPEN errors occurred X X X X 
CPD8291 CLOSE errors occurred X X X X 
CPD8384 Unable to validate device description X Xx Xx 

CPF8390 Errors occurred during program pro- xX Xx xX xX 


cessing 


1 Call producing the messages. 


If the programming language has error-handling 
capabilities, the application program can attempt 
recovery after receiving an I/O error from FIOM. 
I/O, OPEN, and CLOSE messages supply the 
major and minor return codes of the operation as 
part of the message replacement text. If the appli- 
cation program can retrieve this information, then 
you can try error recovery. 


If the AS/400 finance job receives I/O errors 
during processing, and if the finance controller 
indicates host system format errors, examine the 
format of data streams being sent by the system 
application. These exceptions usually indicate 
that the data is not formatted correctly. 


Using Finance Input/Output 
Manager with the Submit Finance 
Job Command 


FIOM can extend the communications capabilities 
of your AS/400 finance application programs when 
the finance job is used as the primary interface to 
the finance controller application. 


As discussed in “Processing Transactions” on 
page 6-6, when a finance job receives a trans- 
action, one of your application programs is called 
to process the transaction. With regard to that 
application, you can expect the following to occur 
to a finance job submitted through the 
SBMFNCJOB command: 


¢ Your application receives the finance device 
name, data length, and data as input parame- 
ters. 


e Your application returns the data length and 
data parameters as output. 


e When control returns to the finance job, the 
device named as input to your application 
remains in the same status as it was prior to 


the start of your program. Specifically, the fol- 


lowing must occur: 
— The device must be acquired. 


— The device must have an active session. 
Therefore, if a TERM-SELF request is 
received by your application program, you 
must either send a negative response or 
process the TERM-SELF request and not 
return control to the finance job until 
another INIT-SELF request is received, 
and a session is active again with the 
device. 


further communications. The finance 
device is invited when the data you return 
from your program is written to that 
device. 


e When control returns to the finance job, all 
devices, except the device named as input to 
your application, exist (acquired or unac- 
quired; invited or uninvited; session active or 
inactive) as they did before your application 
program was called. For example, assume 
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The device must be ready to be invited for 
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that within your application, the QFNREADI 
routine is called to receive data from any 
invited finance device. After data is received 
from a device, call the QFNWRTI routine to 
invite the device again. In this way, when 
control returns to the SBMFNCJOB interface, 
the device is invited as it was before your 
application program was called. 


If the preceding conditions do not occur, when 
control returns to the finance job, the results 
cannot be predicted. If the conditions do occur, 
the SBMFNCJOB interface allows independent 
communications between your application program 
and the finance controller application. After a 
finance job starts your program, and if the system 
exists as described in the previous paragraphs, 
your program can communicate directly with the 
controller application when control is returned to 
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the finance job. Figure 6-12 on page 6-13 is a 
diagram of this communication. 


Figure 6-12 on page 6-13 shows an environment 
in which a finance job is active on the AS/400 
system using the OS/400 licensed program. 
When the finance job receives a transaction, one 
of your application programs is called to process 
the transaction. In turn, your program can call the 
four FIOM routines to communicate with the 
device. When the communications and all other 
transaction processing completes, your program 
should return control to the finance job, keeping 
the conditions previously described. The finance 
job returns the data supplied as output from your 
application program to the finance device sending 
the transaction. The device is invited again, and 
the finance job is ready to receive another trans- 
action. 


OS/400 Program 


SBMFNCJOB Command 


Your Application Programs 


le >| Finance 
Controller 
———’ Application 


QFNWRT QFNWRTI QFNREAD QFNREADI 


Ld 


RSLS061-5 


Figure 6-12. Communications between the Application Program and the Finance Controller 


An advantage gained from using FIOM ina 
finance job environment is having more than 512 
bytes of data associated with a particular trans- 
action. If, for example, your ILE RPG/400 applica- 
tion program must write 800 bytes of data to 
complete a transaction, the data stream can be 
made into segments of 256, 256, 256, and 32 
bytes. The 256-byte segments can be returned to 
the device through calls to the QFNWRT routine, 
with the last 32 bytes of data returned through the 
finance job. While this capability exists through 
UDDS, using FIOM is an easier method. 


Using Finance Input/Output 
Manager without the Submit 
Finance Job Command 


You can use FIOM without the SBMFNCJOB 
routine to simplify communications between your 
application programs and the controller application 
program. In environments where communications 
is routed by another method other than the 
SBMFNCJOB command, the four FIOM routines 
simplify communications for the routing program 
itself. 


Figure 6-13 on page 6-14 shows how to use 
FIOM to handle communications for both the com- 
munications router and the application programs. 
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OS/400 Program 


Your Application Programs 
and 
Communications Router 


QFNWRT QFNWRTI QFNREAD QFNREADI 


— a 


Finance 
Controller 
Application 


RSLS062-5 


Figure 6-13. Communications for the Communications Router and Application Programs 


This diagram shows an environment in which the 
finance job is not used on the AS/400 system. 
Your programs are responsible for routing the 
finance communications and for processing all 
data streams received from the finance controller. 
Since your programs are communicating directly 
with the controller, use the FIOM routines to sim- 
plify this communications by handling the read, 
write, and invite operations when called by your 
AS/400 application. 


Your program is also responsible for acquiring and 
releasing the devices. To handle UDDS, you 
must compile your program against an externally 
described display file named QDFNDATA. This 
display file contains the following record formats: 


R UDDSDTA1 KEEP 
DATA 518 B 12 

R UDDSDTA2 INVITE 
DATA 518 B 12 


This file must be placed before the QSYS library 
in your library list. After compiling the program, 
remove the library containing the file from the 
library list. Then your application program uses 
QDFNDATA file in QSYS library. 


Notice in Figure 6-13 that the direct communica- 
tions path still exists between the router and con- 
troller applications. This indicates additional 
communications occurrences, such as your router 
opening and closing the QDFNDATA display file 
or acquiring and releasing finance devices. While 
these tasks must be done independently of FIOM, 
a similar principle can be used to handle the com- 
munications; you can write your own subroutines 
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to open and close the file and to acquire and 
release devices. 


Using User-Defined Data Stream 


This section discusses formatting information for 
UDDS and contains examples of communicating 
using UDDS. 


Rather than using finance support, you can use 
UDDS to control and process the data streams. 
You must define a display file with record formats 
containing the user-defined (USRDFN) keyword. 
Then you can perform the usual input and output 
operations on the device by using these record 
formats. 


Specify the USRDFN keyword at a record level 
(fields are not allowed on formats) by using the 
following steps. 


1. Define an externally described display file and 
create your program using the record formats 
in this file. The file must not have record 
formats with the USRDFN keyword. Note the 
following example: 


R_ UDDS1 KEEP 
DATA 518 B 1 2 
R_ UDDS2 INVITE 


DATA 518 B 1 2 


2. Create a second file with the same name as 
the first file. When you create this file, you 
must specify LVLCHK(*NO) in the Create 
Display (CRTDSPF) command. 


The record format in this file must contain the 
USRDFN keyword. Note the following 


example: 
R UDDS1 USRDFN 
KEEP 
R UDDS2 USRDFN 
INVITE 
R_ DATAREC 
DATA 518 dy 452 


3. When running your program, use the second 
display file. 


The INIT-SELF and TERM-SELF requests are 
sent to the AS/400 system by the controller. The 
AS/400 application program must do the following: 


e Respond to the INIT-SELF and TERM-SELF 
commands. 

e Process the transaction requested by the 
finance terminal operator. 

¢ Send a write instruction to communicate with 
the finance terminals. 

e Process the data stream associated with the 
write instruction in the UDDS format. 


Formats 


This section provides examples of the format that 
UDDS control bytes must follow. 


Control Bytes: The finance control bytes for 
UDDS are shown in Figure 6-14 and Figure 6-15. 


BYTE 
» 1 - Binary length of data stream being 
2. written (minus 5 UDDS control bytes) 


3 - Binary length of data being 
4 received (plus 3 bytes for control 
information preceding the data) 


5 - UDDS control flag 
'71'X: WRITE only 
'73'X: WRITE with invite 


UDDS Finance 
Control Control Data 
Bytes Character 

1 5 6 7 


RV2P865-0 


Figure 6-14. UDDS Control Bytes 


UDDS Finance 
Control Control Data 
Bytes Character 


1 5 6 7 


CHARACTER VALUE 
____&® g - 3694/4700 data follows 

1 - Send SNA positive response to INIT-SELF 
or TERM-SELF 

2 - Send SNA negative response to INIT-SELF 
or TERM-SELF, where the data contains 4 
bytes of SNA sense data 

3 - LUSTAT command follows, where the data 
contains the LUSTAT '04'X command 
followed by 4 status bytes 

4 - Request INIT-SELF from finance device 

5 - Invite data without writing 

6 - Send data with function-management- 
header (FMH) (used for 3694 controller) 


RV2P863-0 


Finance 
Control 
Character 


Figure 6-15. UDDS Finance Control Character 


Data coming from the 3694, 4701, or 4702 con- 
troller is shown in Figure 6-16. The data field 
follows three bytes of control information. 


Reserved Data 


1 2 3 


|, CHARACTER VALUE 


1 - No FMH included in data 
3 - FMH precedes actual data 


RV2P864-0 


Figure 6-16. Format of Data from a 3694, 4701, or 
4702 Controller 


The AS/400 application program you use to com- 
municate with a controller (using UDDS) must do 
the following: 


e Acquire the finance devices. 


e Identify and respond to the INIT-SELF 
requests. 


The application program issues a write/read 
operation using UDDS to receive the 
INIT-SELF request. 


¢ Set the 4700 control character. 


e Verify the finance terminal operator IDs and 
restrict their use, if necessary. 


When you receive an INIT-SELF request, your 
application program must send either an SNA 
positive or negative response and the correct 

4700 control character. 


¢ Call your transaction processing program. 


After your AS/400 application program sends 
the positive or negative response to the 
INIT-SELF, the application program can either 
write data to the controller (4700 control char- 
acter set to 0), or it can invite the controller to 
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send data by issuing a write/read with the 
4700 control character set to 5. 


e Release the finance device when you receive 
a TERM-SELF request. 


When your AS/400 application program 
receives the TERM-SELF, it must issue a 
write operation to send a positive response 
(4700 control character set to 1) and then 
release the device, or send a negative 
response (4700 control character set to a 
value of 2 bytes) and continue communica- 
tions with the device. 


Data Streams 


The following sections describe the format of data 
streams that are sent and received by your 
AS/400 application programs when you use 
UDDS. 


INIT-SELF Request: The format for the 
INIT-SELF request is: 
X'9002020373F4'. 


0002+0203+73+F4 
ao--t----t--4-- 


12 34 5 6 


Hexadecimal data value 
Byte position 


Bytes 1 and 2 (X'0002') 
Length of data passed from the AS/400 appli- 
cation to the finance controller application 
beginning in byte position 6 of the UDDS. 


The minimum length of any UDDS is 2 bytes. 
Setting byte position 6 to X'F4' causes the 
extra byte at the end of the data stream to be 
ignored. 


Bytes 3 and 4 (X'0203') 
Length of data received from the finance 
application program. This length is set to 
X'0203' (decimal 515). It accepts a 
maximum of 512 bytes of data plus the three 
control characters before it. 


Byte 5 (X'73') 
UDDS control flag. It is set to a value repre- 
senting a write/read operation. 


Byte 6 (X'F4') 
4700 control character. The 4-character value 
is an INIT-SELF request from the finance con- 
troller application program. 
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INIT-SELF Data Stream: The INIT-SELF 
data stream that the AS/400 application program 
receives from the finance controller application 
program is: 


X'0101F301068100mmmm. . .mmmmF308xxxx... 
xxxx0000nnuuuu...uuuu'. 


Bytes 1 and 2 (X'0101') 
Reserved bytes. 


Byte 3 (X'F3') 
Formatted data will be present in the data 
stream. 


Bytes 4 through 6 (X'010681') 
SNA command for INIT-SELF request. 


Byte 7 (X'00') 
Reserved/control information. 


Bytes 8 through 15 (represented: 
mmmm...mmmm) 
Mode. 


Bytes 16 through 25 
Name of the destination logic unit (DLU). 


Byte 16 (X'F3') 
Type of logical unit. 


Byte 17 (X'08') 
Length of the symbolic name. 


Bytes 18 through 25 (represented: xxxx...Xxxx) 
Symbolic name as either c'DTNCHXVS' for 
the 3694 processor, or c'SFSbbbb' for the 
4701 controller. 


Byte 26 (X'00') 
Requester ID length, no requester ID. 


Byte 27 (X'00') 
Password length, no password. 


Bytes 28 through 50 
User field. 


Byte 28 (represented: nn) 
Length of the user data. 


Bytes 29 through 50 (represented: 
uuUU...uuUU) 
User data. 


The user field could contain the sign-on to the 
finance device. Your AS/400 application program 
should verify that the user ID is valid when the 
SBMFNCJOB command is not used. To do this, 
your AS/400 application can use a table of valid 


user IDs to approve the user ID passed in the 
user field of the INIT-SELF data stream. See 
“Work with User Table Command” on page 3-6 for 
information about user ID tables. (You may start 
the Display File Field Description (DSPFFD) 
command on the QUSRSYS/QFNUSRTBL file to 
determine the attributes of the user table file.) If 
the ID is not valid, the program may request the 
correct user ID. 


The finance job assumes that the first 8 charac- 
ters of the user data field contain the user ID from 
the controller application program. 


The INIT-SELF request can pass 22 bytes of data 
from the controller application to the AS/400 appli- 
cation. 


Positive Response to INIT-SELF 
Request: The format for a positive response to 
INIT-SELF request is: 

X'9002000071F1'. 


0002+0000+71+F1 
aon--t----t--4-- 


12 34 5 6 


Hexadecimal data value 
Byte position 


Bytes 1 and 2 (X'0002') 
Length of data passed from the program to 
the finance controller application beginning in 
byte 6 of the UDDS. 


The minimum length of any UDDS is set at a 
value of 2. Setting byte position 6 to X'F1' 
causes the extra byte at the end of the data 
stream to be ignored. 


Bytes 3 and 4 (X'0000') 
Length of data received from the finance 
application program. The length is set to 0 
bytes to indicate that no data will be received 
from the controller. 


Byte 5 (X'71') 
UDDS control flag. It is set to a value repre- 
senting a write only operation. 


Byte 6 (X'F1') 
4700 control character. The character 1 value 
indicates a positive response to the data 
received from the finance application program. 


Negative Response to INIT-SELF 


Request: The format for the negative 
response to INIT-SELF request is: 


X'0008000071F208xx0000010681' . 


0008+0000+7 1+F2+08xx0000+010681 
won-t----t--+--4-------- ta----- 


12 34 5 6 7 10 11 «#13 


Hexadecimal data value 
Byte position 


Bytes 1 and 2 (X'0008') 
Length of data passed from the program to 
the finance controller application beginning in 
byte 6 of the UDDS. 


Bytes 3 and 4 (X'0000') 
Length of data received from the finance 
application program. This length is set to 0 
bytes to indicate that no data will be received 
from the controller. 


Byte 5 (X'71') 
UDDS control flag. It is set to a value repre- 
senting a write only operation. 


Byte 6 (X'F2') 
4700 control character. The character 2 value 
indicates a negative response to the data 
received from the finance controller application 
program. 


Bytes 7 through 10 (X'08xx0000') 
Returned to the controller as a negative 
response. The xx response code can be 
replaced with values, such as X'OF'—Not 
authorized to session or,X'35'—Invalid 
parameter (invalid data length). 


For more information about the negative- 
response and the response code byte, see the 
Systems Network Architecture Format and 
Protocol Reference Manual: Architectural 
Logic. 


Bytes 11 through 13 (X'010681 ') 
Returned to the controller application with 
bytes 7 through 10. This indicates that the 
negative response refers to an INIT-SELF 
data stream format. 


TERM-SELF Data Stream: The 
TERM-SELF data stream that the AS/400 applica- 
tion program receives from the controller applica- 
tion program is: 

X'Q101F301068300F308xxxx...XXXX'. 


Bytes 1 and 2 (X'0101') 
Reserved bytes. 


Byte 3 (X'F3') 
Formatted data follows in the data stream. 
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Bytes 4 through 6 (X'010683') 
SNA command for TERM-SELF. 


Byte 7 (X'00') 
Reserved/control information. 


Bytes 8 through 17 
Name of the destination logical unit (DLU). 


Byte 8 (X'F3') 
Type of logical unit. 


Byte 9 (X'08') 
Length of the symbolic name. 


Bytes 10 through 17 (represented: xxxx....XXXx) 
Symbolic name either as c'DTNCHXVS' for 
the 3694 controller, or c'SFSbbbb' for the 4701 
controller. 


Positive Response to TERM-SELF 
Request: The format for the positive response 
to TERM-SELF request is: 

X'0002000071F1'. 


0002+0000+71+F1 
aon-t----t--4-- 


12 34 5 6 


Hexadecimal data value 
Byte position 


Bytes 1 and 2 (X'0002') 
Length of data passed from the program to 
the finance controller application beginning in 
byte 6 of the UDDS. 


The minimum length of any UDDS is 2 bytes. 
Setting byte position 6 to X'F1' causes the 
extra byte at the end of the data stream to be 
ignored. 


Bytes 3 and 4 (X'0000') 
Length of data received from the finance con- 
troller application program. This length is set 
to 0 bytes to indicate that no data will be 
received from the controller. 


Byte 5 (X'71') 
UDDS control flag. It is set to a value repre- 
senting a write only operation. 


Byte 6 (X'F1') 
4700 control character. The character 1 value 
indicates a positive response to the data 
received from the finance controller application 
program. 


Negative Response to TERM-SELF 


Request: The format for the negative 
response to TERM-SELF request is: 
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X'0008000071F208xx0000010681'. 


0008+0000+7 1+F2+08xx0000+010681 
ao n-t----4--4--4-------- +------ 


1234 5 67 10 11 13 


Hexadecimal data value 
Byte position 


Bytes 1 and 2 (X'0008') 
Length of data passed from the program to 
the finance controller application beginning in 
byte 6 of the UDDS. 


Bytes 3 and 4 (X'0000') 
Length of data received from the finance con- 
troller application program. This length is set 
to 0 bytes to indicate that no data will be 
received from the controller. 


Byte 5 (X'71') 
UDDS control flag. It is set to a value repre- 
senting a write only operation. 


Byte 6 (X'F2') 
4700 control character. The character 2 value 
indicates a negative response to the data 
received from the finance controller application 
program. 


Bytes 7 through 10 (X'08xx0000') 
Returned to the controller as a negative 
response. The xx response code can be 
replaced with a value, such as X'16'—Session 
does not exist. 


For more information about negative response 
code bytes, see the Systems Network Archi- 
tecture Format and Protocol Reference 
Manual: Architectural Logic. 


Bytes 11 through 13 (X'010683') 
Returned to the controller application with 
bytes 7 through 10 to indicate that the nega- 
tive response refers to an INIT-SELF data 
stream format. 


Logical Unit Status Command: The 
Logical Unit Status (LUSTAT) command can be 
used by your program to report failures in the 
finance controller application. The format for the 
LUSTAT data stream is: 

X'9006020373F3040000uUUU'. 


0006+0203+73+F3+04+0000+uUUU 
ao n-t----t--4--4--4----4---- 


12 34 5 6 7 89 1011 


Hexadecimal data value 
Byte position 


Bytes 1 and 2 (X'0006') 
Length of data passed from the program to 
the finance controller application beginning in 
byte 6 of the UDDS. 


Bytes 3 and 4 (X'0203') 
Length of data received from the finance con- 
troller application program. This length is set 
to 515 bytes to indicate that a maximum of 
512 bytes of data and 3 bytes of control infor- 
mation is received from the controller. 


Byte 5 (X'73') 
UDDS control flag. It is set to a value repre- 
senting a write/read operation. 


Byte 6 (X'F3') 
4700 control character. The character 3 value 
indicates that an LU status message is being 
sent to the finance controller application 
program. 


Bytes 7 (X'04') 
LUSTAT request code. 


Bytes 8 and 9 (X'0000') 
Status value for the LUSTAT data stream. 
These bytes are set to zero to indicate that 
the user status follows. 


Bytes 10 and 11 (X'uuuu') 
Status extension field. This file defines the 
exact message being sent to the finance con- 
troller. The values for this field include: 


X'0000' Session does not exist 

X'0001' Program ended normally 
X'0002' Program ended abnormally 
X'0003' Resource now available 
X'0004' Disable pending 

X'10nn' Procedure start failed, where nn 


indicates one of the following: 

00 No additional information 

01 Sign-on has invalid library 
name 

02 Disk I/O error in security 
record 

03 Job’s starting ended by 
system operator 

04 Resources not available to 
start job 

05 Resource security file not 
found 

06 Cannot log security 
information to history 
file 

07 No user list in resource 
security file for library 

08 Unauthorized request for 
user library 


09 Invalid procedure name 


A finance job started with the SBMFNCJOB 
command uses LUSTAT data streams with the 
user status fields of X'0002' and X'1009'. The 
X'0002' message is sent when a request for an 
application program by the program ID (included 
with the transaction) fails. The X'1009' message 
is sent when the program ID included with the 
transaction does not exist in the program table 
associated with the finance job. 


For more information concerning the LUSTAT 
command and the status extension fields, see the 
Systems Network Architecture Format and Pro- 
tocol Reference Manual: Architecture Logic. 


3694 Communications with 
User-Defined Data Stream 


Communication between the AS/400 application 
program and the CHX/3694 program is controlled 
by function-management-headers. For more infor- 
mation about function-management-headers, see 
the Check Processing Executive/VS: Program 
Logic Manual. For more information about pro- 
gramming for the 3694 controller, see the Check 
Processing Executive/3694: Program Reference 
and Operations Manual and the Check Processing 
Executive/VS: Program Reference and Oper- 
ations Manual. 


Function-Management-Headers: A 3694 
function-management-header is a special record 
(or portion of a record) that contains control infor- 
mation for the data that follows. The first byte is 
the length of the header. The length is in 
hexadecimal values and includes the length byte. 
The header portion immediately follows the length 
byte. 


The 3694 processor verifies the data before the 
function-management-header is sent to the 
AS/400 system. When the AS/400 system 
receives the data, it identifies the header and sets 
the data type byte to C'3' to indicate to the 
program that the header was received. 


Input Data Format: The data (read by the 
program) has the following format when a 
function-management-header is received from the 
3694 processor: 
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Bytes 1-2 
Reserved 


Byte 4 
Function-management-header length (X'02') 


Byte 5 
Function-management-header identifier 
(X'80') 

Bytes 6-7 
Function-management-header type 


Bytes 8-n 
Application data 


The data (read by the program) has the following 
format when a function-management-header is not 
received from the 3694 processor: 


Bytes 1-2 
Reserved 


Byte 3 
4 Lf 

Bytes 4-n 
Application data 


Output Data Format: The data written by 
your AS/400 application program must have this 
format if the data contains a 
function-management-header: 


Bytes 1-5 
UDDS control information (see “Using User- 
Defined Data Stream” on page 6-14) 


Byte 6 
‘6' (4700 control character) 


Byte 7 (X'02') 
Function-management-header length 


Byte 8 
Function-management-header identifier 
(X'80') 
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Bytes 9-10 
Function-management-header type (defined in 
CHX/VS Logic Manual) 


Bytes 11-n 
Application data (defined in the CHX/3694 
Logic Manual) 


The data written by your application program must 
have this format if the data does not contain a 
function-management-header. 


Bytes 1-5 
UDDS control information (see “Using User- 
Defined Data Stream” on page 6-14) 


Byte 6 
'0' (4700 control character) 


Bytes 7-n 
Application data (defined in the CHX/3694 
Logic Manual) 


To prepare to read the data from the 3694 
processor without writing any data, your applica- 
tion program should do a write/read operation with 
the following data stream: 


Bytes 1-5 
UDDS control information (see “Using User- 
Defined Data Stream” on page 6-14) 


Bytes 1-2 (X'0002') 
Length of data being passed to the 3694 
application is set to a minimum value of 2 
bytes 


Bytes 3-4 (X'0200') 
Length of data being received from the 3694 
application is set to the maximum data length 
permitted 


Byte 5 (X'73') 
UDDS control flag is set to a value repre- 
senting a write/read operation 


Byte 6 
‘5' (4700 control character) invite device 
without writing 


Note: Data is not actually sent to the 3694 
processor. The data is only invited from that 
device. 


Example of User-Defined Data 


Stream 
Figure 6-17 shows a typical communications plan 
using UDDS. 
AS/400 : 
Application Finance 
Program Controller 
INIT-SELF 
OPEN le 
id 
Request INIT-SELF 
>| 
INIT-SELF 
INIT-SELF Response 
> INIT-SELF Response 
>| 
BIND 
ia| 
BIND Response 
\¢ 
Start Data Traffic (SDT) 
ia| 
SDT Response 
WRITE/READ UDDS ie 
>| LU 0 Data Stream 
ial 
TERM-SELF 
WRITE/READ UDDS i‘ 
TERM-SELF 
it 
TERM-SELF Response 
> TERM-SELF Response 
CLOSE >| 
> UNBIND 
ia| 
UNBIND Response 
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Figure 6-17. UDDS Communications Scenario 
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Chapter 7. Finance Considerations 


This chapter describes considerations for pro- 
gramming, controllers, performance, and Systems 
Network Architecture (SNA) for finance commu- 
nications. 


Intersystem Communications 
Function 


This section discusses considerations when using 
ICF finance. 


Programming Applications 


When planning your programs for use with finance 
communications, you must consider the protocol 
being used, the error recovery objectives, and the 
performance objectives. 


ICF finance uses a half-duplex contention pro- 
tocol. Half-duplex means that information can be 
sent in one direction at a time over the data link. 
Only when the information transmission ends can 
information be sent in the opposite direction. 
Contention means that you cannot control which 
program should send and which program should 
receive. If your AS/400 application program and 
the remote controller program both attempt to 
send data at the same time, the AS/400 program 
is the contention loser. Then the AS/400 program 
receives the data from the remote controller 
program and sends the data when the controller 
program finishes sending data. 


Consider the following when using programs for 
ICF finance communications: 


e Ensure your program checks the major and 
minor codes after every operation to deter- 
mine whether the operation was a success or 
a failure. For more information about the error 
codes, see Appendix B, “Return Codes, Mes- 
sages, and Sense Codes.” 


e Use the information in the input/output (I/O) 
feedback area for your program. For more 
information about the I/O feedback area, see 
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“Using Input/Output Feedback Area” on 
page 5-10. 


e Remember, if the AS/400 program is the 
target program, it cannot start error recovery. 
If a permanent error occurs, the target 
program should finish any needed processing 
and end. The controller program is respon- 
sible for establishing the session again. 


Performance 


If you experience performance problems, perfor- 
mance improvements could occur when additional 
storage is moved from the base pool to the 
machine pool. For additional information con- 
cerning ways to improve your system perfor- 
mance, see the book, Work Management. 


Buffering: Finance communications support 
buffers data sent by your program. The first 
record of a group is always sent immediately. The 
remaining records in a group are not sent until the 
communications buffer becomes full, a force-data 
function is specified, or the last record in a group 
is sent. Only single record groups are sent to a 
3694 processor. Data sent on a write operation 
always results in a single record group being sent 
to the 3694 processor, regardless of the functions 
specified on the write operation. 


Responses: A group of records that was par- 
tially sent can be completed by explicitly speci- 
fying the end-of-group (ENDGRP) function. A 
group of records also can be implicitly completed 
by a read, write-with-read, or a write-with-invite 
function. 


For a 47xx or FBSS controller, if a group of 
records ended explicitly with the end-of-group 
function, a response is required from the remote 
controller program. The write operation does not 
end until the response is received. This may not 
be desirable when performance is a critical con- 
sideration. A response is not required from a 
3694 processor, regardless of the functions speci- 
fied on the write operation. 
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When a group of records is closed implicitly by a 
read operation, a write-with-invite function, or a 
write-with-read operation, a response is not 
required for the group from the remote controller. 


When a group of records is sent on the system 
monitor session for a 4701 or 4702 controller, a 
response is always required from the controller 
before the write operation ends. 


Prestart Jobs Using Program Start 


Requests: To minimize the time required to 
start a job when a program start request is 
received, you can use a prestart job entry to start 
a job on the AS/400 system before the controller 
program sends a program start request. 


To use prestart jobs and to ensure programming 
changes are made in the prestart job program, 
you must define both communications and prestart 
job entries in the subsystem description. For 
more information about the prestart job entries, 
see the book, /CF Programming. 


Program Initialization Parameters: Ifa 
program start request is received, each parameter 
received must be equal in length to the corre- 
sponding parameter specified in the AS/400 
program. If the received parameter length 
exceeds the parameter length in the AS/400 
program, truncation occurs. If the received 
parameter length is less than the parameter length 
in the AS/400 program, results that cannot be pre- 
dicted could occur. 


Security: If the data supplied on the 
INIT-SELF command fails security checking for 
any reason, the session will not be established. 
The INIT-SELF command may also fail due to a 
previous session not being completely reset, or 
due to parameters that are not valid on the 
INIT-SELF request that is received. The 
INIT-SELF command will be rejected. 


A message describing the error and the sense 
code is issued to the QSYSOPR message queue. 


For more information about sense codes, see 
Appendix B, “Return Codes, Messages, and 
Sense Codes.” 
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Non-Intersystem 
Communications Function 


This section discusses considerations when using 
non-ICF finance. 


Programming Applications 


The following programming considerations apply 
to the non-ICF finance communications functions 
using finance input/output manager (FIOM), 
Submit Finance Job (SBMFNCJOB) command, 
and user-defined data stream (UDDS). 


Finance Input/Output Manager (FIOM): 
When designing AS/400 application programs, you 
can use FIOM to do the following: 


¢ To perform more than one write operation to 
the controller (rather than using the 
SBMFNCJOB command). 


¢ To communicate interactively with the con- 
troller. 


¢ To use a Call interface (no communications 
operations). 


¢ To write your own router program to handle 
data in a nonserial manner. 


If you decide to use FIOM, you must override the 
QDFNDATA file by using the Override with 
Display File (OVRDSPF) command when defining 
devices to be used by the display file. Your appli- 
cation program must: 


e Use the QDFNDATA file. If you do not, the 
FIOM routine receives a file-not-opened 
exception with CPD8289 (input/output excep- 
tion received) and CPF8390 (errors occurred 
when running the program) messages. These 
messages are sent to your application 
program. 


e Acquire and release finance devices used by 
the job, unless FIOM is being used with the 
SBMFNCJOB command. 


¢ Open the QDFNDATA file as a shared file 
before a FIOM routine is started. The file 
should be closed by your application before 
returning control to the program that started 
your application. The SBMFNCJOB command 
opens and closes the file and acquires and 
releases the finance devices. 


e Ensure the data length parameter passed to 
the QFNWRT, QFNWRTI, QFNREAD, and 
QFNREADI routines is initialized to a valid 
packed decimal number (15 5) to avoid 
receiving a CPD8286 (invalid format for data 
length parameter) error message. 


e Ensure the data parameter is large enough to 
handle the maximum length of data that could 
be received from the finance controller appli- 
cation. A maximum of 512 bytes is allowed. 
See the XPF programmer’s guide and the 
controller application guide because there may 
be requirements of fewer than 512 bytes. If 
the data parameter is not long enough, adja- 
cent data space could be overwritten with 
financial data and give unexpected results. 


e Process the send and receive data according 
to the format defined by the controller applica- 
tion and to ensure that the application 
program conforms to SNA communications 
rules. 


e Handle any error recovery because errors 
received by the FIOM routines result in error 
messages sent to your application program. 


Submit Finance Job (SBMFNCJOB) 


Command: This command starts a continual 
BATCH job. The transaction programs receive 
controller data from and give data to the 
SBMFNCJOB command and send the data back 
to the controller. The SBMFNCJOB command 
handles incoming data from all devices serially. 
Only one transaction program can be running at 
one time. 


Consider the following information about the 
SBMFNCJOB command when designing applica- 
tion programs: 


e Avoid sending data directly from the applica- 
tion program to the controller application to 
help minimize finance job wait time. Let the 
finance job return data to the 4701 or 4702 
application whenever possible. 


e Start the QFNROUTE program directly, to 
provide interactive debugging of the applica- 
tion programs. The format of the command is: 

CALL PGM(QSYS/QFNROUTE) PARM(device-table-name 


program-table-name user-table-name 
'message-queue-name' ) 


If you use the SBMFNCJOB interface to communi- 
cate with a controller, you must consider the hard- 
ware configuration of your AS/400 system. You 
must decide what devices to use, the number of 
devices per controller, and how these displays 
communicate. 


To help you with these decisions, consider the 
following: 


¢ Decide which finance controller application 
program to use by determining the amount of 
work that can be unloaded from the AS/400 
system to the controller. The following factors 
affect this decision: 


— The amount of function supplied by the 
various applications at the controller level 


— The quantity and speed (due to the hard- 
ware configuration of your system) of 
transactions in which you require data to 
be passed to the AS/400 system 


— The amount of storage required for the 
application 


— Performance information supplied with 
each application 


e Minimize unnecessary device acquires during 
the finance job starting phase by carefully 
changing the device tables. By balancing and 
distributing the processing load in the most 
efficient manner for the operating environ- 
ment, the transaction processing you do ata 
later time improves. When designing the 
device tables, consider dividing devices in one 
of the following ways: 


¢ By common functions, for example, placing all 
tellers on one job and all loan officers on 
another job. 


e By controller, for example, placing all the 
devices on one controller assigned to one 
finance job. 


Remember a finance job must acquire the first 
device it specifies in a device table to successfully 
start the finance job. The finance device must be 
active and not be in use by another job. 


lf a device is included in more than one device 


table, and the SBMFNCUJOB interface is used, 
only one finance job can acquire that device. 
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Consider the possibility for I/O failure in your envi- 
ronment. If an unrecoverable I/O error occurs on 
a finance controller or line, the job started by the 
SBMFNCJOB command ends. This also ends 
communication with all devices associated with 
that job. For more information about I/O error 
handling capabilities of the SBMFNCJOB inter- 
face, see “Input/Output” on page 6-3. 


Consider submitting multiple finance jobs. The 
jobs submitted handle transaction requests seri- 
ally. The SBMFNCJOB command calls your 
transaction processing application and waits for 
control to return before it can process another 
request from any device associated with the 
finance job. Therefore, submitting more than one 
finance job reduces jobs waiting in a queue 
because of serial processing within one job. 


As more devices are added to a device table, the 
program access group for the finance job using 
that device table increases, primarily due to the 
increased number of I/O buffers associated with 
the job. Therefore, submitting more than one 
finance job also reduces the group size of a single 
job accessing the program. 


e Change the QFNC subsystem, job queue, and 
class to suit the needs of your particular oper- 
ating environment. For example, you can 
change the QFNC class running priority to 
balance the workload of your system. 


e Use the JOBD parameter of the SBMFNCJOB 
command to specify a job description having 
routing data other than QFNC specified on the 
QFNC job description. This allows you to 
specify different classes, and thus different 
running priorities and time slices, for individual 
finance jobs. The QFNC class is EXCPTY 
(20) and TIME SLICE (2000). 


¢ Change this wait time by using the Create 
Class (CRTCLS) control language (CL) 
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command to create a class with the DFTWAIT 
parameter set to the wait time you want. 
Display file QDFNDATA has been created 
with the WAITFILE parameter of (*CLS); 
therefore, the maximum amount of time spent 
trying to acquire a finance device is deter- 
mined by the class associated with the finance 
job. The QFNC class specifies a default wait 
time of 30 seconds. If you reduce this wait 
time, the finance job may not have the ability 
to acquire a device in environments in which 
many devices are acquired or released at the 
same time. 


With high use of the system, performance 
improvements can occur when additional 
storage is moved from the base pool to the 
machine pool. For additional information con- 
cerning system adjustment, see the book, 
Work Management. 


Finance support attempts error recovery if a 
finance job receives an I/O exception response. 
When an I/O exception response signals a finance 
job, the major/minor return code is retrieved from 
the message to determine the possibility of error 
recovery. Recoverable errors alert the finance job 
to try a recovery procedure. If the procedure is 
successful, processing continues normally. If the 
process is unsuccessful, the next action depends 
on the nature of the error. 


Device errors result in the release of the affected 
device but other devices associated with the job 
continue processing. However, if recovery is not 
successful, controller or line errors end the job. 


If you use the SBMFNCJOB command as the 
communications method between the AS/400 
system and the controllers, special security exists, 
as discussed in the following considerations. 


Granting Authority to Finance Objects: To 
keep financial information secure, the objects 
shipped with the system have restricted accessi- 
bility. Therefore, the following tasks must be com- 
pleted before using the SBMFNCJOB interface. 


e Use the Grant Object Authority (GRTOBJAUT) 
command to grant authority to the following 
users. 


Individual or group authorization to pro- 

grammers who update the tables using 

the WRKDEVTBL, WRKPGMTBL, and 

WRKUSRTBL commands: 

GRTOBJAUT OBJ(QSYS/WRKDEVTBL) OBJTYPE(*CMD) 
USER(user-name) AUT(*CHANGE) 

GRTOBJAUT OBJ(QSYS/WRKPGMTBL) OBJTYPE(*CMD) 
USER(user-name) AUT(*CHANGE) 


GRTOBJAUT OBJ(QSYS/WRKUSRTBL) OBJTYPE(*CMD) 
USER(user-name) AUT(*CHANGE) 


Individual or group authorization to opera- 
tors who submit finance jobs and must be 
authorized to the SBMFNCJOB command: 


GRTOBJAUT OBJ(QSYS/SBMFNCJOB) OBJTYPE(*CMD) 
USER(user-name) AUT(*CHANGE) 


e Authorize the user profile QFNC access to 
any devices, programs, libraries, and files 
used by the finance jobs submitted with the 
SBMFNCJOB command. Specifying 
AUT(*CHANGE) is enough authority for these 
programs. An alternative to granting the 
required authority is to specify the QFNC 
profile as the owner of the objects. 


¢ Determine if the finance support user ID sent 
in the data stream with the INIT-SELF is to be 
approved. If the user ID is approved, deter- 
mine which user ID is allowed in each finance 
job. Use one user table for each finance job, 
one table for all finance jobs, or a combination 
of uniquely shared user tables. Define your 
finance user tables using the WRKUSRTBL 
command. 


For more information about the WRKUSRTBL 
command, see “Work with User Table 
Command’ on page 3-6. Ensure that these 
programs do the following: 


— Develop your AS/400 transaction applica- 
tion programs. 


— Accept and return the parameters for the 
SBMFNCJOB command. 


— Accept and return data according to spec- 
ifications defined by the finance controller 
application program. 


Once you develop your programs, describe 
which programs are to be used to process 
transactions by using the WRKPGMTBL 
command. Use one table for each finance 
job, one for all finance jobs, or a combination 
of unique and shared program tables. For 
more information about the WRKPGMTBL 
command, see “Work with Program Table 
Command” on page 3-7. 


Follow the security instructions described in 
“Security” on page 7-6. 


Additional Security Considerations: To 
improve the security of your finance system, use 
the following guidelines: 


Submit jobs through the SBMFNCJOB 
command using the QFNC user profile. Simi- 
larly, QFNC owns the commands used for 
working with device, user, and program tables. 
The password of the QFNC user profile 
should remain secure. 


To avoid the possibility of external use, do not 
create a job description that does not refer to 
QFNC support. 


Use the Display Job Description (DSPJOBD) 
command to display the default job description 
for the SBMFNCJOB command. You can 
change attributes of this job description (job 
logging level) with the Change Job Description 
(CHGJOBD) command. Creating different job 
descriptions also restricts access to individual 
finance jobs. 


Use the work with table commands to restrict 
access to transaction processing programs 
and devices. For example, in Figure 7-1 on 
page 7-6, only Jones has access to Program 
Table, PROG X. 


Consider which library list that the finance job 
should use. The current library list of the 
user’s job that performed the SBMFNCJOB 
command becomes the library list used for 
that finance job. 
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PROG X Program Table 
TBLC 
ha User Table 
SMITH JONES 
TBLB TBLD 
SBMFNCJOB DEVI 
DEVTBL (TBLA) DEV2 Device Table 
PGMTBL (TBLC) 


USRTBL (TBLD) 
TBLA 


RV2P869-0 


Figure 7-1. Accessing an Application Program 


User-Defined Data Stream (UDDS): A 
user-defined data stream (UDDS) is a data 
stream in which the user has defined and 
embedded all device control characters. Consider 
the following information about UDDS when 
designing application programs: 


e Ensure that your program correctly formats 
the data stream. If it does not, results that 
cannot be predicted could occur. 


e Ensure that you compile your program with an 
externally described file that does not contain 
the USRDFN keyword. Then run the program 
with an externally described display containing 
the USRDFN keyword. 


The MSGQ parameter (on the SBMFNCJOB 
command) expected by QFNROUTE is a 
20-character variable (a 10-character message 
queue name immediately followed by a 
10-character library name). The parameter repre- 
sents the qualified name of the message queue to 
which finance messages are to be sent. 


Security 


After you have created your device, user, and 
program tables, have the person responsible for 
security on your system save backup versions of 
the QFNDEVTBL, QFNUSRTBL, and 
QFNPGMTBL files in another library. 


Have the person responsible for security add the 
names of the libraries containing your AS/400 
transaction application programs, and the names 
of any additional libraries required by those pro- 
grams, to the original library list of QFNC. (QFNC 
is the job description found in the QGPL library 
under which the finance jobs run.) 
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Have the person responsible for security grant 
authorities required by user profile QFNC for pro- 
grams used by your finance job. QFNC must be 
authorized for the device descriptions so that the 
devices can be acquired by the finance jobs, 
along with your AS/400 application programs and 
the libraries in which they reside. 


Controller Applications 


The following must be considered when you write 
your own application programs for use on the 
4701, 4702, or FBSS controller. 


To communicate successfully with finance commu- 
nications, your controller application program must 
do the following: 


e Handle and respond to the following com- 
mands received from the AS/400 system: 


— Activate Physical Unit (ACTPU) 
Activate Logical Unit (ACTLU) 

Bind (BIND) 

Request for Start Data Traffic (SDT) 
Clear (CLEAR) 

Unbind (UNBIND) 


e Start a session by sending the INIT-SELF 
request to the AS/400 system. 


e End a session by sending the TERM-SELF 
request to the AS/400 system. 


¢ Do not use brackets or the Change-of- 
Direction (CD) command during a session. 


¢ Do not require a Bid (BID) sequence at the 
beginning of the session. 


The AS/400 system requires that any device con- 
figured as a 3278 or a 3279 must accept extended 
data streams. Be sure that the emulation program 
running on the 4701, 4702, or FBSS controller has 
extended data stream support. If it does not have 
extended data stream support, configure for a 
3277 device. 


The device type you specify in the device 
description determines the form of data stream 
sent to the finance controller. The data stream 
can be one of the following: 


e LUO for device type 3624, 3694, 4704, or 
*“FNCICF 

e LU1 for device type 3287 

e LU2 for device type 3277, 3278, or 3279 


LUO data streams allow printer data to be included 
with display data. LU1 data streams are sent to 
printers. The LU2 data streams require you to 
create 3270-type application displays. Be aware 
that translation and emulation could make the LU2 
approach run slower than the LUO support. 


A 4701 or 4702 controller can do 5250 emulation 
(with a 4701- or 4702-based, 5250 emulation 
package), or can allow attachment of a personal 
computer emulating a finance device. Contact 
your IBM remarketer for information about addi- 
tional finance configuration options. 


Systems Network Architecture 
(SNA) 


This section discusses the Systems Network 
Architecture (SNA) considerations for ICF and 
non-ICF finance communications. SNA describes 
the layered logical structure, formats, protocols, 
and operational sequences used for transmitting 
information units through networks, as well as 
controlling the configuration and operation of net- 
works. The following data formats are used by 
SNA for the INIT-SELF command. 


INIT-SELF Command Field 
Format 


The INIT-SELF request starts an SNA session. 
Figure 7-2 shows the format needed for the 
INIT-SELF command. 


Figure 7-2. Initiate-Self Request Field Format 


Offset in 

Decimal Description 

0 through 2 Network service header: must be 
hex 010681. 

3 through 12 Initiate header: 
must be hex 
004040404040404040F3. 

13 Length of destination logical unit 


name: must be hex 08 


Figure 7-2. Initiate-Self Request Field Format 


Offset in 
Decimal 


14 through 21 


Description 


For 47xx and FBSS controllers, this 
is the primary logical unit name that 
is placed in the SNA BIND 
command. For the 3694 processor, 
this is the name of the AS/400 
program to be started. It must be 8 
bytes in length. If the program 
name is less than 8 bytes, the field 
must be padded with blanks. 


Must be hex 0000. 


22 through 23 


24 Length (binary) of user data fol- 
lowing this byte. 


25 through n User data field. 


3694 Document Processor with ICF: 


The 3694 processor follows the same procedure 
for initiation as for the other finance controllers, 
except the 3694 processor also sends the 
program name to be started on the INIT-SELF 
along with the security data. Then the program 
can communicate with the controller using the 
finance support. 


On a secure AS/400 system, the INIT-SELF 
request that is received must include a valid user 
ID and password in the user data field of the 
INIT-SELF command. A program name is 
required in the destination logical unit (LU) field of 
the INIT-SELF. 


If any data is included in the user data field of the 
INIT-SELF request, the field must be 10 bytes in 
length and formatted as shown in Figure 7-3 on 
page 7-8. 
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Figure 7-3. Format for User Data for 3694 INIT-SELF 


Field Description 

1 Request code. 

2 through 4 User ID; these 3 characters are 
added to USER to form the user 
identifier. 

5 through 8 Password. 


These 2 characters are added to 
LIB to form the library name. If 
these characters are 00, the current 
library list of the subsystem con- 
taining the communications entry is 
used. 


9 through 10 


47xx and FBSS Finance Controllers 
with Intersystem Communications 


Function: The INIT-SELF user data field is 
also used by 47xx and FBSS controllers. Ona 
secure system, the received INIT-SELF request 
must contain a user ID and password and can 
also contain a library name. Figure 7-4 shows the 
format of the user data field. 


Figure 7-4. Format for User Data for 4701 and 4702 
INIT-SELF 


Field Description 


User_id, password[, 
library_name] 


The maximum length of 
the user ID, password, 
and library name in the 
INIT-SELF request is 10 
characters each. This is 
used to validate authority. 
The comma and library 
name following the pass- 
word are optional. 


Finance Controllers with Non-ICF 


Finance: For information about non-ICF, see 
“Sending Data from the Finance Controller to the 
AS/400 System” on page 6-6. 


If the SBMFNCUJOB interface is used, the 


INIT-SELF must use the format in Figure 7-2 on 
page 7-7 with the following exceptions: 
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e Restrictions do not exist for the name of the 
destination logical unit. 


e The library name is not present in the user 
data field. 


If the SBMFNCJOB interface is not used, the 
format is determined by the user program. 


BIND Command Field Format 


The BIND command is used to start a session 
and to establish what protocol is followed for the 
current session. Figure 7-5 shows the BIND 
parameters for ICF finance to be used for each 
controller. 


Figure 7-5. BIND Command Field Format for ICF 
Finance 


47xx and 4701 and 
FBSS 4702 3694 
Conirol- System Document 
Protocol lers Monitor Processor 
Function 04 04 04 
manage- 
ment profile 
Trans- 04 04 04 
mission 
profile 
Primary BO AO 10 
logical unit 
protocol 
Secondary BO BO 30 
logical unit 
protocol 
Common 4040 4040 4040 
protocol 


Figure 7-6 on page 7-9 shows the BIND parame- 
ters for non-ICF finance to be used for each con- 
troller. 


Figure 7-6. BIND Command Field Format for Non-ICF 


Finance 
4701 and 
4702 3694 Document 
Protocol Controllers Processor 
Function man- 04 04 
agement profile 
Transmission 04 04 
profile 
Primary logical 10 10 
unit protocol 
Secondary BO 30 
logical unit pro- 
tocol 
Common pro- 4000 4000 
tocol 
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Appendix A. Language Operations, DDS Keywords, and 


System-Supplied Formats 


This appendix provides information about the 
following: 


e Valid communications operations supported by 
ICF finance 


e Valid finance communications operations sup- 
ported and the associated high-level language 
operations 


¢ Data description specifications (DDS) pro- 
cessing keywords 


¢ System-supplied formats 


Using Language Operations 


You can use ICF operations and high-level 
program languages to use finance communica- 
tions. This discussion defines the operations used 
for finance and the differences in the language 
statements for C Set ++ for OS/400, ILE C/400, 
COBOL/400, and RPG/400 programming lan- 
guages. 


Intersystem Communications 
Function Operations 


Figure A-1 provides a brief description of the ICF 
operations supported by finance communications. 
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Figure A-1. ICF Operations Supported by Finance 


Communications 


ICF Operation 


Description 


Open 


Acquire 


Get-attributes 


Read 


Read-from- 
invited- program- 
devices 


Write 


Write/Read 


Release 


Close 


Opens the ICF file. 


Establishes an ICF session 
between the application and the 
remote location. 


Determines the status of the 
session. 


Obtains data from a specific 
session. 


Obtains data from any session 
responding to an invite function. 


Passes data records from the 
local program to the remote 
program. 


Allows a write operation followed 
by a read operation. 


Attempts to end an ICF session. 
Closes the ICF file. 


Intersystem Communications 
Function Language Statements 


Figure A-2 provides a list of ICF operations sup- 
ported by finance communications and the equiv- 
alent language statements needed to run these 
operations. 


Figure A-2. ICF Operations and Equivalent Language Statements 


ILE RPG/400 ILE COBOL/400 Procedure 


ICF Operation Function Statement C Functions2 
Open OPEN OPEN fopen or_Ropen 
Acquire ACQ ACQUIRE _Racquire 
Get-attributes POST ACCEPT _Rdevatr 

Read READ READ fread or Rreadn 
Read-from- invited- READ1 READ1 fread or _Rreadindv 
program- devices 

Write WRITE WRITE fwrite or _Rwrite 
Write/read EXFMT Not supported _Rwriterd 
Release REL DROP _Rrelease 

Close CLOSE CLOSE fclose or _Rclose 
Notes: 


1 A read operation can be directed either to a specific program device or to any invited program 
device. The support provided by the compiler that you are using determines whether to issue an ICF 
read or read-from-invited-program-devices operation, based on the format of the read operation. For 
example, if a read operation is issued with a format or display specified, the read operation is inter- 
preted as an ICF read operation. Refer to the appropriate language reference book for more infor- 
mation. 


2 C Functions represents functions for both ILE C/400 and C Set ++ for OS/400 languages. Also, both 
languages are case sensitive. 


A-2 Finance Communications Programming V4R1 


Data Description Specifications 
Keywords 


Read and write operations use a record containing 
DDS keywords. These keywords allow you to use 


more specific communications functions with the 
read and write operations. Figure A-3 shows all 
the keywords supported by ICF finance commu- 


nications. 


Figure A-3. Valid DDS Keywords for ICF Finance 


Communications 


DDS Keyword 


Description 


CANCEL1 


CNLINVITE 


ENDGRP 


EOS 


FAIL 


FMH 


FRCDTA 


INVITE 
NEGRSP 


RCVENDGRP 


RCVFMH 


RCVNEGRSP 


RECID 


TIMER 


Cancels a group of records that 
was partially sent. 


Cancels any valid invite for which 
data has not yet been received. 


Indicates the end of a user-defined 
group of records. 


Specifies an end-of-session func- 
tion. 


Sends a fail indication to the 
remote system. 


Informs the remote program that a 
function-management-header is 
being sent. 


Sends data immediately for the 
write operation and also sends data 
currently in the communications 
buffer, without waiting for the buffer 
to become full. 


Schedules an invite request. 


Informs the remote system that the 
data received is not valid. 


Indicates that the end of a user- 
defined group (chain) of records 
was received. 


Indicates to the program that a 
function-management-header was 
received. 


Indicates that the remote program 
sent a negative response. 


Allows the data content to identify 
the record format to use for 
receiving data. 


Allows the user to specify an 
interval of time to wait before a 
read-from-invited-program-devices 
operation receives a timer-expired 
return code. 


Figure A-3. Valid DDS Keywords for ICF Finance 
Communications 


DDS Keyword 
VARLEN 


Description 


Specifies that the length of the user 
data is defined in the 5 bytes of the 
specified field. 


1 Not valid for a 3694 processor. 


System-Supplied Formats 


Figure A-4 shows the functions and operations 
performed by the system-supplied formats that are 
valid for finance communications. 


Figure A-4. System-Supplied Formats 


Equivalent 
System- Sup- DDS 
plied Format Keyword Description 
$$CANL1 CANCEL, Send SNA 
INVITE cancel, then invite 
$$CANLNI1 CANCEL Send SNA cancel 
$$CNLINV CNLINVITE Cancel an invite 
$$EOS EOS End of session 
$$FAIL FAIL Fail 
$$NRSP NEGRSP, Negative 
INVITE response, then 
invite 
$$NRSPNI NEGRSP Negative 
response 
$$SEND INVITE Write then invite, 
or invite 
$$SENDE ENDGRP Write with end-of- 
group 
$$SENDFM FMH, Invite Write with 
function- 
management- 
header, then 
invite 
$$SENDNF FMH Write with 
function- 
management- 
header 
$$SENDNI No DDS Write 
keyword 
$$TIMER TIMER Set timer 


1 Not valid for a 3694 document processor. 
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Appendix B. 


Return Codes, Messages, and Sense Codes 


Return Codes 


This section describes all the return codes that are valid for finance communica- 
tions. These return codes are set in the I/O feedback area of the ICF file; they 
report the results of each I/O operation issued by your application program. Your 
program should check the return code and act accordingly. Refer to your high-level 
language book for more information on how to access these return codes. 


Each return code is a four-digit hexadecimal value. The first two digits contain the 
major code, and the last two digits contain the minor code. 


With some return codes, a message is also sent to the job log or the system oper- 
ator message queue (QSYSOPR). You can refer to the message for additional 
information. 


Notes: 


1. In the return code descriptions, your program refers to the local AS/400 appli- 
cation program that issues the operation and receives a return code from ICF 
communications. The remote program refers to the application program on the 
remote system with which your program is communicating through ICF. 

2. Several references to input and output operations are made in the descriptions. 
These operations can include DDS keywords and system-supplied formats, 
which are listed in Appendix A. 


Major Code 00 
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Major Code 00 — Operation completed successfully. 

Description: The operation issued by your program completed successfully. 
Your program may have sent or received some data, or may have received a 
message from the remote system. 


Action: Examine the minor return code and continue with the next operation. 


Code Description/Action 


0000 Description: For output operations issued by your program, 0000 indi- 
cates that the last output operation completed successfully and that 
your program can continue to send data. 


Action: Issue an input or output request. 


0001 Description: Your program has successfully invited the finance 
session. 


Action: Issue a read-from-invited-program-devices operation. 
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0003 


0007 


Description: On a successful input operation, your program received 
a group of records. 


Action: Issue an input operation to receive the next group of records, 
or issue an output operation. 


Description: On a successful input operation, your program received 
a group of records with a function-management-header (FMH). 


Action: Issue an input or output operation. 


Major Code 02 


Code 
0200 


0203 


0207 


Major Code 02 — Input operation completed successfully, but your job is being 
ended (controlled). 


Description: The input operation issued by your program completed success- 
fully. Your program may have received some data or a message from the 
remote system. However, your job is being ended (controlled). 


Action: Your program should complete its processing and end as soon as pos- 
sible. The system eventually changes a job ended (controlled) to a job ended 
(immediate) and forces all processing to stop for your job. 


Description/Action 


Description: On a successful input operation, your program received 
some data. Also, your job is being ended (controlled). 


Action: Your program can continue to receive data, or it can send 
data to the remote program. However, the recommended action is to 
complete all processing and end your program as soon as possible. 
The system eventually changes a job ended (controlled) to a job ended 
(immediate) and forces all processing to stop for your job. 


Description: On a successful input operation, your program received 
a group of records. Also, your job is being ended (controlled). 


Action: Your program can issue an input operation to receive the next 
group of records, or it can issue an output operation. However, the 
recommended action is to complete all processing and end your 
program as soon as possible. The system eventually changes a job 
ended (controlled) to a job ended (immediate) and forces all processing 
to stop for your job. 


Description: On a successful input operation, your program received 
a group of records with a function-management-header (FMH). Also, 
your job is being ended (controlled). 


Action: Your program can issue an input or output operation. 
However, the recommended action is to complete all processing and 
end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces 
all processing to stop for your job. 
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Major Code 03 


Major Code 03 — Input operation completed successfully, but no data received. 


Description: The input operation issued by your program completed success- 
fully, but no data was received. 


Action: Examine the minor return code for a function-management-header or a 
timer indication, and continue with the next operation. 


Code 
0303 


0309 


0310 


Description/Action 


Description: On a successful input operation, your program received 
an end-of-group indication without any data. 


Action: Issue an input or output operation. 


Description: On a read-from-invited-program-devices operation, your 
program did not receive any data. Also, your job is being ended (con- 
trolled). 


Action: Your program can continue processing. However, the recom- 
mended action is to complete all processing and end your program as 
soon as possible. The system eventually changes a job ended (con- 
trolled) to a job ended (immediate) and forces all processing to stop for 
your job. 


Messages: 
CPF4741 (Notify) 


Description: On a read-from-invited-program-devices operation, the 
time interval specified by a timer function in your program or by the 
WAITRCD value specified for the ICF file expired. 


Action: Issue the intended operation after the specified time interval 
has ended. For example, if you were using the time interval to control 
the length of time to wait for data, you can issue another read-from- 
invited-program-devices operation to receive the data. 


Note: Since no specific program device name is associated with the 
completion of this operation, the program device name in the 
common I/O feedback area is set to *N. Therefore, your 
program should not make any checks based on the program 
device name after receiving the 0310 return code. 


Messages: 


CPF4742 (Status) 
CPF4743 (Status) 
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Major Code 04 


Major Code 04 — Output exception occurred. 


Description: An output exception occurred because your program attempted to 
send data when it should be receiving data or a response indication. The data 
from your output operation was not sent. You can attempt to send the data 
later. 


Action: Issue an input operation to receive the data or response indication. 


Code Description/Action 


0412 Description: An output exception occurred because your program 
attempted to send data or to cancel an invite function when it should be 
receiving data or a response indication that was sent by the remote 
program. The data from your output operation was not sent to the 
remote system. Your program can attempt to send the data later. 


Action: Issue an input operation to receive the data or response indi- 
cation. 


Messages: 


CPF4750 (Notify) 
CPF5076 (Notify) 
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Major Codes 08 and 11 


Major Codes 08 and 11 — Miscellaneous program errors occurred. 
Description: The operation just attempted by your program was not suc- 
cessful. The operation may have failed because it was issued at the wrong 
time. 


Action: Refer to the minor code description for the appropriate recovery action. 


Code Description/Action 


0800 Description: The acquire operation just attempted by your program 
was not successful. Your program tried to acquire a program device 
that was already acquired and is still active. 


Action: If the session associated with the original acquire operation is 
the one needed, your program can begin communicating in that session 
since it is already available. If you want a different session, issue 
another acquire operation for the new session by specifying a different 
program device name in the PGMDEV parameter of the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command that precedes the program. 


Messages: 


CPD4077 (Diagnostic) 
CPF5041 (Status) 
CPF50A0 (Status) 


1100 Description: The read-from-invited-program-devices operation just 
attempted by your program was not successful because your program 
tried this operation when no program devices were invited and no timer 
function was in effect. 


Action: Issue an invite function (or a combined operation that includes 
an invite) followed by a read-from-invited-program-devices operation. 


Messages: 
CPF4740 (Notify) 
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Major Code 34 


Major Code 34 — Input exception occurred. 

Description: The input operation attempted by your program was not suc- 
cessful. The data received was too long for your program's input buffer or was 
not compatible with the record format specified on the input operation. 


Action: Refer to the minor code description for the appropriate recovery action. 


Code Description/Action 


3401 Description: The input operation issued by your program was not suc- 
cessful because the length of the data record sent by the remote 
system was longer than the length specified for your program's input 
buffer. The length of the data record received from the remote system, 
if available, is in the actual-record-length field in the I/O feedback area. 


Action: Issue another input operation if your program can specify a 
record size large enough to receive the data, plus any indicators for a 
file without a separate indicator area. Otherwise, you should close the 
file, end your program, correct the record size, then run your program 
again. 


Messages: 
CPF4768 (Notify) 


3441 Description: A valid record format name was specified with format 
selection type *RECID. However, although the data received matched 
one of the record formats in the ICF file, it did not match the format 
specified on the read operation. 


Action: Correct your program to issue a read operation that does not 
specify a record format name, or specify the correct record format 
name to process the data based on the format selection option for the 
file. 


Messages: 
CPF5058 (Notify) 


3451 Description: Your program specified a file record size that was not 
large enough for the indicators to be included with the data sent by the 
remote program (for a file defined with a nonseparate indicator area). 
Your program did not receive any data. For a file using a nonseparate 
indicator area, the actual record length field in the device-dependent I/O 
feedback area contains the number of indicators specified by the record 
format. 
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Action: End the session; close the file; correct the file record size; 
then open the file again. 


Messages: 
CPF4768 (Notify) 


Major Code 80 


Major Code 80 — Permanent system or file error (irrecoverable). 


Description: An irrecoverable file or system error has occurred. The under- 
lying communications support may have ended and your session has ended. If 
the underlying communications support ended, it must be established again 
before communications can resume. Recovery from this error is unlikely until 
the problem causing the error is detected and corrected. 


Action: You can perform the following general actions for all 80xx return 
codes. Specific actions are given in each minor code description. 


¢ Close the file, open the file again, then establish the session. If the opera- 
tion is still not successful, your program should end the session. 

¢ Continue local processing. 

e End. 


Note: If the session is started again, it starts from the beginning, not at the 
point where the session error occurred. 


Code Description/Action 


8081 Description: The operation attempted by your program was not suc- 


cessful because a system error condition was detected. 


Action: Your communications configurations may need to be varied off 
and then on again. Your program can do one of the following: 


¢ Continue local processing. 

¢ Close the ICF file, open the file again, and establish the session 
again. 

e End. 


Messages: 


CPF4170 (Escape) 
CPF4510 (Escape) 
CPF5197 (Escape) 
CPF5244 (Escape) 
CPF5257 (Escape) 
CPF5274 (Escape) 
CPF5346 (Escape) 
CPF5355 (Escape) 
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8082 Description: The operation attempted by your program was not suc- 
cessful because the device supporting communications between your 
program and the remote location is not usable. For example, this may 
have occurred because communications were stopped for the device by 
a Hold Communications Device (HLDCMNDEV) command. Your 
program should not issue any operations to the device. 


Action: Communications with the remote program cannot resume until 
the device has been reset to a varied on state. If the device has been 
held, use the Release Communications Device (RLSCMNDEV) 
command to reset the device. If the device is in an error state, vary the 
device off and then on again. Your program can attempt to establish 
the session again, continue local processing, or end. 


Messages: 


CPF4744 (Escape) 
CPF5269 (Escape) 


80B3 Description: The open operation issued by your program was not suc- 
cessful because the ICF file is in use by another process. 


Action: Wait for the file to become available, then issue another open 
operation. Otherwise, your program may continue processing, or it can 
end. 


Consider increasing the WAITFILE parameter with the Change ICF File 
(CHGICFF) or Override ICF File (OVRICFF) command to allow more 
time for the file resources to become available. 


Messages: 
CPF4128 (Escape) 


80EB Description: The open operation attempted by your program was not 
successful due to one of the following: 


e Your program used an option of update or delete to open the file, 
but that option is not supported by the program device. 

e Your program requested both blocked data and user buffers on an 
open option, but these formats cannot be selected together. 

e Your program tried to open a source file, but the file was not 
created as a source file. 

e¢ There is a mismatch on the INDARA keyword between your 
program and the ICF file as to whether or not a separate indicator 
area should be used. 

e The file was originally opened as a shared file; however, no 
program devices were ever acquired for the file before your 
program attempted the current open operation. 


Action: After performing one of the following actions, your program 
can try the open operation again: 


e lf the update and delete options are not supported for the program 
device, use an option of input, or output, or both. 

¢ lf your program tried selecting user buffers and blocked data 
together, it should try selecting one or the other, but not both. 

e lf your program tried to open a non-source file as a source file, 
either change the file name or change the library name. 
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80ED 


80EF 


80F8 


e If there was a mismatch on the INDARA keyword, either correct the 
file or correct your program so that the two match. 

e If no program devices were previously acquired for a shared file, 
acquire one or more program devices for the file. 


Messages: 


CPF4133 (Escape) 
CPF4156 (Escape) 
CPF4238 (Escape) 
CPF4250 (Escape) 
CPF4345 (Escape) 
CPF5522 (Escape) 
CPF5549 (Escape) 


Description: The open operation attempted by your program was not 
successful because there is a record format level mismatch between 
your program and the ICF file. 


Action: Close the file. Compile your program again to match the file 
level of the ICF file, or change or override the file to LVLCHK(*NO); 
then open the file again. 


Messages: 


CPF4131 (Escape) 
CPF4564 (Escape) 


Description: Your program attempted an open operation on a file or 
library for which the user is not authorized. 


Action: Close the file. Either change the file or library name on the 
open operation, or obtain authority for the file or library from your secu- 
rity officer. Then issue the open operation again. 


Messages: 
CPF4104 (Escape) 


Description: The open operation attempted by your program was not 
successful because one of the following occurred: 


¢ The file is already open. 
¢ The file is marked in error on a previous return code. 


Action: 


e If the file is already open, close the file and end your program. 
Remove the duplicate open operation from your program, then 
issue the open operation again. 

e If the file is marked in error, your program can check the job log to 
see what errors occurred previously, then take the appropriate 
recovery action for those errors. 


Messages: 


CPF4132 (Escape) 
CPF5129 (Escape) 
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Major Code 81 


Major Code 81 — Permanent session error (irrecoverable). 


Description: An irrecoverable session error occurred during an I/O operation. 
Your session cannot continue and has ended. Before communications can 
resume, the session must be established again by using an acquire operation or 
another program start request. Recovery from this error is unlikely until the 
problem causing the error is detected and corrected. Operations directed to 
other sessions associated with the file should work. 


Action: You can perform the following general actions for all 81xx return 
codes. Specific actions are given in each minor return code description. 


If your program initiated the session, you can: 


¢ Correct the problem and establish the session again. If the operation is still 
not successful, your program should end the session. 

¢ Continue processing without the session. 

e End. 


If your session was initiated by a program start request from the remote 
program, you can: 


¢ Continue processing without the session. 
e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the 
configuration off, make the change to the configuration description, then 
vary the configuration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value spec- 
ified in the configuration (for your program only). Therefore, in some 
cases, you may choose to make a change with the ADDICFDEVE or 
OVRICFDEVE command rather than in the configuration. 


Several other minor codes indicate a line or remote system error and may 
require an operator to correct the error. 


Note: If the session is started again, it starts from the beginning, not at the 
point where the session error occurred. 
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Code Description/Action 


8140 Description: A cancel reply was received from your program or from 
the operator in response to a notify message, or was the result of a 
system default, causing the session to be ended. The session is no 
longer active. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request, it can continue local processing or end. 


Messages: 
CPF5104 (Escape) 


8191 Description: A permanent line or controller error occurred on an input 
or output operation, and the system operator attempted recovery in 
response to the error message. You can learn what type of line error 
occurred by checking the system operator's message queue. The 
session has ended. Data may have been lost. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF4146 (Escape 
CPF5128 (Escape 
CPF5342 (Escape 
CPF5344 (Escape 
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8197 Description: On an input or output operation, the remote system 
ended the transmission abnormally because it could not continue the 
session. The session has ended. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF5167 (Escape) 
CPF5241 (Escape) 


81A3 Description: The session ended abnormally because of an SNA 
request shutdown, request recovery, or UNBIND command from the 
remote controller. 


Action: Determine the reason for the error in the remote controller 
program. Correct the error, then start the session again. 


Messages: 
CPF5167 (Escape) 


81A4 Description: An SNA protocol violation occurred on the input or output 
operation attempted by your program. A negative-response with sense 
data was sent to the controller. 


Appendix B. Return Codes, Messages, and Sense Codes_ B-11 


B-12 


81AD 


81BA 


81E9 


Action: Examine the sense data in the associated message to deter- 

mine the protocol error. Correct the error, then try the operation again. 
For more information on sense data, see the Systems Network Archi- 

tecture Reference Summary book. 


Messages: 
CPF5248 (Escape) 


Description: The input or output operation issued by your program 
was not successful because the SDLC frame size was not large 
enough to contain the RU size. Either this was a configuration error, or 
the frame size was changed to a smaller value by the Exchange ID 
(XID) command. 


Action: End your program. The SDLC frame size is specified in the 
MAXFRAME parameter on the controller description, and the RU size is 
specified in the MAXLENRU parameter on the device description. 
Verify that these configuration parameters are correct and, if necessary, 
reduce the RU size or increase the frame size. If changes to the con- 
figuration must be made, first vary the device off, then on again. Try to 
run your program again. 


Messages: 
CPF5341 (Escape) 


Description: Your program received a data record whose length 
exceeds the maximum user record length. 


Action: Verify that the remote program sent the correct data. If so, 
end your program. Increase the value of the maximum record length 
(MAXRCDLEN) parameter in the ICF file, and increase the size of the 
input buffer on the record format to be used for the input operation, 
then try running your program again. 


Messages: 
CPF5205 (Escape) 


Description: An input operation was issued and the format selection 
option for the ICF file was *RECID, but the data received did not match 
any record formats in the file. There was no format in the file defined 
without a RECID keyword, so there was no default record format to 
use. The session has ended. 


Action: Verify that the data sent by the remote program was correct. 
If the data was not correct, have the operator on the remote system 
change the remote program to send the correct data. If the data was 
correct, add a RECID keyword definition to the file that matches the 
data, or define a record format in the file without a RECID keyword so 
that a default record format can be used on input operations. If your 
program started the session, use another acquire operation to start the 
session again. If a program start request started your program, con- 
tinue local processing or end. 


Messages: 
CPF5291 (Escape) 
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Major Code 82 


Major Code 82 — Open or acquire operation failed. 


Description: Your attempt to establish a session was not successful. The 
error may be recoverable or permanent, and recovery from it is unlikely until the 
problem causing the error is detected and corrected. 


Action: You can perform the following general actions for all 82xx return 
codes. Specific actions are given in each minor code description. 


If your program was attempting to start the session, you can: 


¢ Correct the problem and attempt to establish the session again. The next 
operation could be successful only if the error occurred because of some 
temporary condition such as the communications line being in use at the 
time. If the operation is still not successful, your program should end. 

¢ Continue processing without the session. 

e End. 


If your session was initiated by a program start request from the remote 
program, you can: 


¢ Correct the problem and attempt to connect to the requesting program 
device again. If the operation is still not successful, your program should 
end. 

¢ Continue processing without the session. 

e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the 
configuration off, make the change to the configuration description, then 
vary the configuration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value spec- 
ified in the configuration (for your program only). Therefore, in some 
cases, you may choose to make a change with the ADDICFDEVE or 
OVRICFDEVE command rather than in the configuration. 


If no changes are needed in your file or in the configuration (and depending on 
what the return code description says): 


e If the attempted operation was an acquire, issue the acquire operation 
again. 

e lf the attempted operation was an open, close the file and issue the open 
operation again. 
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Code Description/Action 


8209 Description: The open or acquire operation issued by your program 
was not successful because a prestart job is being canceled. One of 
the following may have occurred: 


e An End Job (ENDJOB), End Prestart Job (ENDPJ), End Subsystem 
(ENDSBS), End System (ENDSYS), or Power Down System 
(PWRDWNSYS) command was being issued. 

¢ The maximum number of prestart jobs (MAXJOBS parameter) was 
reduced by the Change Prestart Job Entry (CHGPJE) command. 

e The value for the maximum number of program start requests 
allowed (specified in the MAXUSE parameter on the ADDPJE or 
CHGPJE command) was exceeded. 

e Too many unused prestart jobs exist. 

e The prestart job had an initialization error. 


Action: Complete all processing and end your program as soon as 
possible. Correct the system error before starting this job again. 


Messages: 


CPF4292 (Escape) 
CPF5313 (Escape) 


8233 Description: A program device name that was not valid was detected. 
Either an ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command 
was not run, or the program device name in your program does not 
match the program device name specified in the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command for the session being 
acquired. The session was not started. 


Action: If the error was in your program, change your program to 
specify the correct program device name. If an incorrect identifier was 
specified in the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command, specify the correct value in the PGMDEV parameter. 


Messages: 


CPF4288 (Escape) 
CPF5068 (Escape) 


8281 Description: On an unsuccessful open or acquire operation, a system 
error condition was detected. For example, the file may previously 
have been in error, or the file could not be opened due to a system 
error. 


Action: Your communications configurations may need to be varied off 
and then on again. Your program can do one of the following: 


¢ Continue local processing. 

¢ Close the ICF file, open the file again, and acquire the program 
device again. However, if this results in another 8281 return code, 
your program should close the file and end. 

¢ Close the file and end. 


Messages: 


CPF4143 (Escape) 
CPF4168 (Escape) 
CPF4182 (Escape) 
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8297 


CPF4231 (Escape) 
CPF4254 (Escape) 
CPF4265 (Escape) 
CPF4304 (Escape) 
CPF4369 (Escape) 
CPF4370 (Escape) 
CPF4375 (Escape) 
CPF5197 (Escape) 
CPF5202 (Escape) 
CPF5244 (Escape) 
CPF5250 (Escape) 
CPF5257 (Escape) 
CPF5274 (Escape) 
CPF5317 (Escape) 
CPF5318 (Escape) 
CPF5355 (Escape) 
Description: The open or acquire operation attempted by your 
program was not successful because the device supporting commu- 
nications between your program and the remote location is not usable. 
For example, this may have occurred because communications were 
stopped for the device by a Hold Communications Device 
(HLDCMNDEV) command. Your program should not issue any oper- 
ations to the device. The session was not started. 


Action: Communications with the remote program cannot resume until 
the device has been reset to a varied on state. If the device has been 
held, use the Release Communications Device (RLSCMNDEV) 
command to reset the device. If the device is in an error state, vary the 
device off, then on again. Your program can attempt to acquire the 
program device again, continue local processing, or end. 


Messages: 


CPF4298 (Escape) 
CPF5269 (Escape) 


Description: A permanent line or controller error occurred on an 
unsuccessful open or acquire operation, and the system operator took 
a recovery option in response to the error message. The session was 
not started. 


Action: If your program was attempting to start the session, it can try 
the acquire operation again. If your program was started by a program 
start request from the remote program, your program can continue local 
processing or end. 


Messages: 


CPF4193 (Escape) 
CPF4261 (Escape) 
CPF5260 (Escape) 
CPF5342 (Escape) 
CPF5344 (Escape) 


Description: An SNA TERM-SELF or UNBIND request was received, 
while your program was attempting to establish a communications 
session with the remote controller. 
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82A2 


82A4 


82A6 


Action: Try the open or acquire operation again, continue local pro- 
cessing, or end your program. 


Messages: 


CPF4178 (Escape) 
CPF5167 (Escape) 
CPF5241 (Escape) 


Description: Your program issued an SNA INIT-SELF request for a 
finance remote location or device description that did not contain valid 
authorization data. One of the following occurred: 


e The user ID or password was not supplied. 

e The specified user ID was not found on the system. 

¢ The specified password was not valid for this user ID. 

e The specified user ID was not authorized to use this device 
description. 


Action: Verify that your program specifies the correct user ID or pass- 
word on the INIT-SELF command, or create a user profile with the 
correct user ID and password. If the user is not authorized to the 
device, use the Grant Object Authority (GRTOBJ) command to 
authorize the user. 


Messages: 


CPF4177 (Escape) 
CPF5251 (Escape) 


Description: An SNA protocol violation occurred on the open or 
acquire operation attempted by your program. A negative-response 
with sense data was sent to the controller. 


Action: Examine the sense data in the associated message to deter- 

mine the protocol error. Correct the error, then try the operation again. 
For more information on sense data, see the Systems Network Archi- 

tecture Reference Summary book. 


Messages: 


CPF4141 (Escape) 
CPF5248 (Escape) 


Description: One of the following occurred: 


e A negative-response with sense data was received when the 
Systems Network Architecture (SNA) BIND or Start Data Traffic 
(SDT) command was sent to the user to start the session. 

¢ The BIND or SDT command did not end within the time limit speci- 
fied using the wait time (WAITFILE) parameter on the CRTICFF, 
CHGICFF, or OVRICFF command. 


The session was not started. 


Action: Close the file. Examine the associated messages for SNA 
sense data received when the BIND or SDT command failed, and verify 
that the local and remote configurations are compatible. Determine 
why the remote controller did not respond within the time limit. If the 
time limit is too short, increase the value specified in the WAITFILE 
parameter on the CHGICFF or OVRICFF command. Correct the error 
and run the program again. 
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82A8 


82A9 


Messages: 


CPF4142 (Escape) 
CPF4254 (Escape) 
CPF4333 (Escape) 
CPF4527 (Escape) 
CPF5202 (Escape) 
CPF5240 (Escape) 
CPF5538 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because the specified program device was 
already in use. The session was not started. 


Action: Your program can wait for the program device to become 
available, then try the open or acquire operation again. Otherwise, it 
can continue local processing or end. 


Messages: 


CPF4106 (Escape) 
CPF5507 (Escape) 


Description: The acquire operation attempted by your program was 
not successful because the maximum number of program devices 
allowed for the ICF file has been reached. The session was not 
started. 


Action: Your program can recover by releasing a different program 
device and issuing the acquire operation again. If more program 
devices are needed, close the file and increase the MAXPGMDEV 
value for the ICF file. 


Messages: 


CPF4745 (Diagnostic) 
CPF5041 (Status) 


Description: The acquire operation issued by your program to a 
“REQUESTER device was not successful due to one of the following 
causes: 


e Your program has already acquired the *REQUESTER device. 

e The *REQUESTER device was released because an end-of- 
session was requested. 

e The job does not have a *REQUESTER device; that is, the job was 
not started by a program start request. 

¢ A permanent error occurred on the session. 


Action: 


e If the *REQUESTER device is already acquired and your program 
expects to communicate with the ~*REQUESTER device, use the 
program device that acquired the *REQUESTER. 

¢ lf your program released its *REQUESTER device, correct the error 
that caused your program to release its ~*REQUESTER device 
before trying to acquire it. 

e If this job does not have a *REQUESTER device, correct the error 
that caused your program to attempt to acquire a “*REQUESTER 
device. 
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e If a permanent error caused the acquire operation to fail, verify that 
your program correctly handles the permanent error return codes 
(80xx, 81xx) it received on previously issued input and output oper- 
ations. Because your program was started by a program start 
request, your program cannot attempt error recovery after receiving 
a permanent error return code. It is the responsibility of the remote 
program to initiate error recovery. 


Messages: 


CPF4366 (Escape) 
CPF5380 (Escape) 
CPF5381 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because the remote location name speci- 
fied on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command 
does not match any remote location configured on the system. The 
session was not started. 


Action: Your program can continue local processing, or close the file 
and end. Verify that the name of the remote location is specified cor- 
rectly in the RMTLOCNAME parameter on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Messages: 


CPF4103 (Escape) 

CPF4363 (Escape) 

CPF4364 (Escape) 

CPF4747 (Escape) 

CPF5378 (Escape) 

CPF5379 (Escape) 

Description: The open or acquire operation attempted by your 
program was not successful because the device description for the 
remote location was not varied on. The session was not started. 


Action: Your program can wait until the communications configuration 
is varied on and then issue the acquire operation again, it can try the 
acquire operation again using a different device description, continue 
local processing, or end. 


Messages: 


CPF4285 (Escape) 
CPF5333 (Escape) 


Description: The open or acquire operation attempted by your 
program to establish an SNA session was not successful because the 
SDLC frame size was not large enough to contain the RU size. Either 
this was a configuration error, or the frame size was changed to a 
smaller value by the Exchange ID (XID) command. 


Finance Communications Programming V4R1 


82B3 


82EA 


82EC 


Action: End your program. The SDLC frame size is specified in the 
MAXFRAME parameter on the controller description, and the RU size is 
specified in the MAXLENRU parameter on the device description. 
Verify that these configuration parameters are correct and, if necessary, 
reduce the RU size or increase the frame size. If changes to the con- 
figuration must be made, first vary the device off, then on again. Try to 
run your program again. 


Messages: 


CPF4260 (Escape) 
CPF5341 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because your program is trying to use a 
device description that is already in use by another job. The session 
was not started. 


Action: Wait for the device description to become available, then issue 
the acquire operation again. You can use the Work with Configuration 
Status (WRKCFGSTS) command to determine which job is using the 
device description. Consider increasing the WAITFILE parameter of 
the CHGICFF or OVRICFF command to allow more time for the device 
to become available. Otherwise, your program can continue local pro- 
cessing or end. 


Messages: 


CPF4282 (Escape) 
CPF5332 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful. A format selection of “RECID was speci- 
fied on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command, 
but cannot be used with the ICF file because the RECID DDS keyword 
is not used on any of the record formats in the file. The session was 
not started. 


Action: Close the ICF file. Change the record format selection 
(FMTSLT) parameter to select formats by some means other than 
“RECID, or use a file that has a RECID DDS keyword specified for at 
least one record format. Open the file again. 


Messages: 


CPF4348 (Escape) 
CPF5521 (Escape) 


Description: The acquire operation attempted by your program was 
not successful because finance communications does not support 
FMTSLT(*RMTFMT). 


Action: End your program, correct the ADDICFDEVE, CHGICFDEVE, 
or OVRICFDEVE command, then run your program again. 


Messages: 


CPF4347 (Escape) 
CPF5515 (Escape) 
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82EE 


82EF 


82F4 


Description: Your program attempted an open or acquire operation to 
a device that is not supported. Your program tried to acquire a device 
that is not a valid ICF communications type, or it is trying to acquire the 
requesting program device in a program that was not started by a 
program start request. The session was not started. 


Action: Your program can continue local processing or end. Verify 
that the name of the remote location is specified correctly in the 
RMTLOCNAME parameter on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. If your program was attempting to acquire a 
non-ICF device, use the appropriate interface for that communications 
type. If your program was attempting to acquire a requesting program 
device, verify that your program is running in the correct environment. 


Messages: 


CPF4105 (Escape 
CPF4223 (Escape 
CPF4251 (Escape 
CPF4760 (Escape 
CPF5038 (Escape 
CPF5550 (Escape 
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Description: Your program attempted an acquire operation, or an 
open operation that implicitly acquires a session, to a device that the 
user is not authorized to, or that is in service mode. The session was 
not started. 


Action: If the operation was an acquire, correct the problem and issue 
the acquire again. If the operation was an open, close the file, correct 
the problem, then issue the open operation again. To correct an 
authority error, obtain authority for the device from your security officer 
or device owner. If the device is in service mode, wait until machine 
service function (MSF) is no longer using the device before issuing the 
operation again. 


Messages: 


CPF4104 (Escape) 

CPF4186 (Escape) 

CPF5278 (Escape) 

CPF5279 (Escape) 

Description: The open or acquire operation attempted by your 
program was not successful because the open operation for input only 
is valid only for a requesting program device. 


Action: End your program, correct the ADDICFDEVE, CHGICFDEVE, 
or OVRICFDEVE command, then run your program again. 


Messages: 


CPF4322 (Escape) 
CPF5539 (Escape) 
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Major Code 83 


Major Code 83 — Session error occurred (the error is recoverable). 


Description: A session error occurred, but the session may still be active. 
Recovery within your program might be possible. 


Action: You can perform the following general actions for all 83xx return 
codes. Specific actions are given in each minor code description. 


¢ Correct the problem and continue processing with the session. If the error 
occurred because of a resource failure on the remote system or because 
the remote system was not active at the time, a second attempt may be 
successful. If the operation is still not successful, your program should end 
the session. 

e Issue an end-of-session function and continue processing without the 
session. 

e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the 
configuration off, make the change to the configuration description, then 
vary the configuration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value spec- 
ified in the configuration (for your program only). Therefore, in some 
cases, you may choose to make a change with the ADDICFDEVE or 
OVRICFDEVE command rather than in the configuration. 


If no changes are needed in your file or in the configuration, and depending on 
what the return code description says, you should notify the remote location that 
a change is required at that location to correct the error received. 


Code Description/Action 


830B Description: Your program attempted an operation that was not valid 
because the session was not yet acquired or has ended. The session 
may have ended because of a release operation, an end-of-session 
function, or a permanent error. Your program may have incorrectly 
handled a previous error. 


Appendix B. Return Codes, Messages, and Sense Codes B-21 


B-22 


8319 
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831C 


Action: Verify that your program does not attempt any operations 
without an active session. Also verify that your program correctly 
handles the permanent error or session-not-acquired return codes 
(80xx, 81xx, 82xx) it received on previously issued input and output 
operations. To recover from an incorrectly handled error condition, 
your program may or may not be able to issue another acquire opera- 
tion, depending on the return code. 


Messages: 


CPD4079 (Diagnostic) 
CPF4739 (Status) 
CPF5067 (Escape) 
CPF5068 (Escape) 
CPF5070 (Escape) 


Description: The remote program sent a negative-response with 
sense data. 


Action: Examine the sense data in the I/O feedback area to determine 
the necessary error recovery. 


Messages: 


CPF4813 (Notify) 
CPF4814 (Notify) 


Description: Your program tried to specify invalid sense data on a 
negative-response function. Correct your program so that it sends valid 
sense data on a negative-response function. Valid sense data must be 
either 0 or 8 bytes long. To send 8 bytes, the first four bytes must be 
0000, 08xx, or 10xx, and the remaining four bytes must be in the 
ranges 0-9, A-F, or a-f. If your program chooses to send a negative- 
response without sense data, finance communications automatically 
sends 08110000 to the remote program. 


Messages: 
CPF4820 (Notify) 


Description: Your program's previous output operation received a 
return code of 0412, indicating that your program must receive informa- 
tion sent by the remote program; however, your program did not handle 
the return code correctly. The current output operation was not suc- 
cessful because your program should have issued an input operation to 
receive the information already sent by the remote program. 


Action: Issue an input operation to receive the previous information. 
Messages: 
CPF4934 (Notify) 
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831F 


Description: The operation attempted by your program was not valid, 
or a combination of operations that was not valid was specified. The 
session is still active. The error may have been caused by one of the 
following: 


e Your program issued an operation that is not recognizable or not 
supported by finance communications. 

¢ Your program requested a combination of operations or keywords 
that was not valid, such as a combined write-then-read operation 
with the invite function specified. 

e Your program issued an input operation, or an output operation 
with the invite function, for a file that was opened for output only. 

e Your program issued an output operation for a file that was opened 
for input only. 

e Your program issued a close operation with a temporary close 
option. 

e A function-management-header function was issued with zero data 
length. 

e A function-management-header function was issued, and it was not 
specified in the first record of a group. 


Action: Your program can try a different operation, issue a release 
operation or end-of-session function, or end. Correct the error in your 
program before trying to communicate with the remote program. 


If the file was opened for input only, do not issue any output operations; 
or, if the file was opened for output only, do not issue any input oper- 
ations, and do not use the invite function on an output operation. If 
such an operation is needed, then release the session, close the ICF 
file, and open the file again for input and output. 


Messages: 


CPF4564 (Escape) 
CPF4764 (Notify) 
CPF4766 (Notify) 
CPF4790 (Notify) 
CPF4803 (Notify) 
CPF5132 (Escape) 
CPF5149 (Escape) 


Description: Your program specified data or a length for the operation 
that was not valid; however, the session is still active. One of the fol- 
lowing caused the error indication: 


¢ On an output operation, your program tried to send a data record 
that was longer than the MAXRCDLEN value specified for the ICF 
file. 

e The program used a read or write operation that specified a data 
length greater than the record format in the ICF file. 

e If this was a timer function, the format of the timer interval was not 
HHMMSS. 

e If a system-defined format was used to specify the operation, or if 
the variable-length-data-record (VARLEN) function was used, then 
the length of the user buffer was not valid. 
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8322 


8323 


8326 


Action: If you want your program to recover, try the operation again 
with a smaller data length. If you do not need your program to recover 
immediately, do one of the following: 


¢ Change the record format length in the ICF file, or change the 
record length in your program and compile your program again. 


e For an input operation, specify a data length equal to or less than 
the record format length, or do not specify a length at all. 


e If the timer function was used, verify that the format of the timer 
interval is HHMMSS. 


¢ For an output operation that used the variable-length-data-record 
(VARLEN) function, verify that the length specified is less than the 
record length specified for the ICF file when it was opened. 


Messages: 


CPF4762 (Notify) 
CPF4765 (Notify) 
CPF4767 (Notify) 


Description: Your program tried to issue a negative-response or fail 
function. However, these operations are not valid at the current time. 


e Your program can issue a negative-response function only when it 
has received data that was in error. In this case, it can issue the 
negative-response function on the next operation. 

e Your program can issue a fail function only if it is attempting to 
send data or if it has received data for which an error indication can 
be sent. 


Action: Your program can issue an output operation to continue 
sending data, issue an input operation to begin receiving data, issue an 
end-of-session function to continue local processing, or end. Correct 
the error that caused your program to attempt the not valid operation. 


Messages: 
CPF4817 (Notify) 


Description: Your program attempted to issue a cancel function when 
data or a negative-response indication was received for your program. 
The cancel function is only valid in send state. 


Action: Your program can issue an input operation to continue 
receiving data, issue an end-of-session function, or end. Correct the 
error that caused your program to attempt the not valid operation. 


Messages: 
CPF4776 (Notify) 


Description: Your program attempted to issue a cancel function to 
cancel a group of records when no records were previously sent to 
start a group. The cancel function is only valid within a chain; it is not 
valid preceding a chain or between chains. The session is still active. 
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832C 


832D 


832F 


Action: Correct the error that caused your program to attempt the not 
valid operation. 


Messages: 
CPF4779 (Notify) 


Description: A release operation following an invite function was 
detected. Because your program issued the invite function, it cannot 
issue a release operation to end the invited session. 


Action: Issue an input operation to satisfy the invite function, or issue 
a cancel-invite function to cancel the invite function; then try the release 
operation again. Otherwise, issue an end-of-session function to end 
the session. If a coding error caused your program to attempt a 
release operation that was not valid, correct your program. 


Messages: 
CPF4769 (Notify) 


Description: Following an invite function, your program issued a 
negative-response indication, a cancel reply, or an additional invite 
function. This operation failed because the original invite function must 
first be satisfied by an input operation. 


Action: Issue an input operation to receive the data that was invited. 
Otherwise, issue an end-of-session function to end the session. lf a 
coding error caused your program to attempt a request-to-write indi- 
cation or an additional invite function, correct your program. 


Messages: 
CPF4924 (Notify) 


Description: The release operation issued by your program was not 
successful because your program attempted the operation while the 
current transaction was still active, or the release operation issued by 
your program was not successful because of one of the following: 


e The group of records sent by your program was not closed. 
e Data is available for your program to receive. 
¢ Sense data is available for your program to receive. 


The release operation is not valid if a group of records was partially 
sent or received, or if any data or a negative-response indication were 
received from the remote program for which your program did not issue 
an input operation. The operation was not performed, but the session 
is still active. 


Action: Use the detach function to end the current transaction before 
issuing a release operation. Correct the error that caused your 
program to issue an evoke function during an active transaction; then 
run your program again. 


Messages: 


CPF4819 (Notify) 
CPF5099 (Notify) 
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83B6 


83E0 


83E8 


83F8 


Description: On an output operation, your program received an indi- 
cation that the remote program has quiesced the SNA session on 
which this transaction is running by issuing the SNA quiesce-at-end-of- 
chain (QEC) command. The remote program may release the qui- 
esced state at a later time by issuing the SNA release-quiesce 
command. 


Action: Your program can wait and try the output operation again at a 
later time. Otherwise, your program can end the session, continue 
local processing, or end. 


Messages: 
CPF4816 (Notify) 


Description: Your program attempted an operation using a record 
format that was not defined for the ICF file. 


Action: Verify that the name of the record format in your program is 
correct, then check to see whether the record format is defined in the 
file definition. 


Messages: 
CPF5054 (Notify) 


Description: Your program attempted to issue a cancel-invite function 
to a session that was not invited. One of the following may have 
occurred: 


e The invite function was implicitly canceled earlier in your program 
by a valid output operation. 

e The invite function was satisfied earlier in your program by a valid 
input operation. 

e Your program had already canceled the invite function, then tried to 
cancel it again. 

¢ Your program never invited the session. 


The session is still active. 


Action: Your program can issue an input or output operation, issue an 
end-of-session function, continue local processing, or end. However, 
you should correct the error that caused your program to attempt the 
cancel-invite to a session that was not invited. 


Messages: 
CPF4763 (Notify) 


Description: Your program attempted to issue an operation to a 
program device that is marked in error due to a previous I/O or acquire 
operation. Your program may have handled the error incorrectly. 


Action: Release the program device, correct the previous error, then 
acquire the program device again. 


Messages: 
CPF5293 (Escape) 
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Program Start Request Errors 


When a program start request is rejected by the system, message CPF 1269 is 
sent. This message contains information that can be used to determine why the 
program start request was rejected. Message CPF1269 is sent to the QOYSMSG 
message queue if that queue exists and is not damaged. If the QSYSMSG 
message queue is damaged or does not exist, the message is sent to the 
QSYSOPR message queue. 


Figure B-1 shows the reason codes for rejected program start requests. This infor- 
mation is sent using CPF1269 to the system that issued the rejected program start 
request. Program start requests that request a response fail with the listed nega- 
tive response sense codes; those that do not request a response fail with the listed 
LUSTAT sense codes. 


Figure B-1 (Page 1 of 3). Reason Codes for Rejected Program Start Requests 


Negative 

Reason Response LUSTAT 

Code Sense Code Sense Code Description 

401 084B0000 00001004 Attach request received for a device that is not allocated to an 
active subsystem. 

402 084B0000 00001003 Requested device currently held by a Hold Communications 
Device (HLDCMNDEV) command. 

403 084B0000 00001004 User profile cannot be accessed. 

404 084B0000 00001004 Job description cannot be accessed. 

405 084B0000 00001004 Output queue cannot be accessed. 

406 084B0000 00001004 Maximum number of jobs defined by subsystem description are 
already active. 

407 084B0000 00001004 Maximum number of jobs defined by communications entry are 
already active. 

408 084B0000 00001004 Maximum number of jobs defined by routing entry are already 
active. 

409 084B0000 00001004 Library on library list is in use exclusively by another job. 

410 084B0000 00001004 Group profile cannot be accessed. 

411 084B0000 00001004 Insufficient storage in machine pool to start job. 

412 08120000 00001004 System values not accessible. 

501 084C0000 00001000 Job description is not found. 

502 084C0000 00001000 Output queue is not found. 

503 084C0000 00001004 Class is not found. 

504 084C0000 00001001 Library on library list is not found. 

505 084C0000 00001000 Job description or job description library is damaged. 

506 084C0000 00001001 Library on library list is destroyed. 

507 084C0000 00001001 Duplicate libraries are found on library list. 

508 084C0000 00001000 Defined size of storage pool is zero. 

602 10010000 00001000 Value of transaction program name is reserved but not sup- 
ported. 
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Figure B-1 (Page 2 of 3). Reason Codes for Rejected Program Start Requests 


Negative 

Reason Response LUSTAT 

Code Sense Code Sense Code Description 

604 10010000 00001004 Matching routing entry is not found. 

605 10010000 00001009 Program is not found. 

704 080F0000 00001000 Password is not valid. 

705 080F0000 00001000 User is not authorized to device. 

706 080F0000 00001000 User is not authorized to subsystem description. 

707 080FO0000 00001000 User is not authorized to job description. 

708 080FO0000 00001000 User is not authorized to output queue. 

709 080FO0000 00001000 User is not authorized to program. 

710 080F0000 00001000 User is not authorized to class. 

711 080F0000 00001008 User is not authorized to library on library list. 

712 080F0000 00001000 User is not authorized to group profile. 

713 080F0000 00001000 User ID is not valid. 

723 080FO0000 00001000 There is no password associated with the user ID. 

726 080F0000 00001000 User profile is disabled. 

801 10010000 00001000 Program initialization parameters are present but not allowed. 

802 084C0000 00001000 More than 2000 bytes of program initialization parameters 
received for the prestart job. 

803 084B0000 00001004 Subsystem ending in progress. 

804 084B0000 00001004 Prestart job is either not active or is ending. 

805 084B0000 00001004 WAIT(*NO) specified on prestart job entry. 

806 084B0000 00001004 MAXJOBS on prestart job entry exceeded. 

807 084B0000 00001004 Prestart job ended too soon. 

901 10010000 00001000 Program initialization parameters are not valid. 

902 10010000 00001000 Number of parameters for program is not valid. 

903 10010000 00001000 Program initialization parameters required but not sent. 

1001 08640000 00001000 System logic error; function check or unexpected return code 
encountered. 

1002 08640000 00001000 System logic error; function check or unexpected return code 
encountered while receiving initialization parameters. 

1501 10010000 00001009 Character in procedure name not valid. 

1502 10010000 00001009 Procedure not found. 

1503 084C0000 00001001 System/36 environment library not found. 

1504 084C0000 00001001 Library QSSP not found. 

1505 084C0000 00001000 File QS36PRC not found in library QSSP. 

1506 10010000 00001000 Procedure name is greater than 8 characters. 

1507 084C0000 00001001 Current library not found. 

1508 080F0000 00001008 Not authorized to current library. 

1509 080F0000 00001000 Not authorized to file QS36PRC in current library. 
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Figure B-1 (Page 3 of 3). Reason Codes for Rejected Program Start Requests 


Negative 

Reason Response LUSTAT 

Code Sense Code Sense Code Description 

1510 080F0000 00001000 Not authorized to procedure in current library. 

1511 080F0000 00001008 Not authorized to System/36 environment library. 

1512 O080F0000 00001000 Not authorized to file QS36PRC in System/36 environment 
library. 

1513 080F0000 00001000 Not authorized to procedure in System/36 environment library. 

1514 080F0000 00001008 Not authorized to library QSSP. 

1515 080F0000 00001000 Not authorized to file QS36PRC in library QSSP. 

1516 080F0000 00001000 Not authorized to procedure in file QS36PRC in library QSSP. 

1517 08640000 00001000 Unexpected return code from System/36 environment support. 

1518 10010000 00001009 Problem phase program not found in library QSSP. 

1519 O80F0000 00001000 Not authorized to problem phase program in library QSSP. 

1520 084B0000 00001004 Maximum number of target programs started (100 per 
System/36 environment). 

2651 10010000 00001009 *EXEC statement not specified. 

2652 10010000 00001009 Blank missing after ~EXEC statement. 

2653 10060002 00001009 Program name missing. 

2654 10020000 00001009 Program name greater than 10 characters. 

2655 10020000 00001001 Library name greater than 10 characters. 
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Appendix C. Mapping Intersystem Communications Function 
Operations to Systems Network Architecture Commands 


This appendix shows the association between 
some of the Systems Network Architecture (SNA) 
commands and ICF finance communications appli- 


cation operations. 


Application Program 


OPEN 


In Figure C-1, the ICF operation appears with a 
corresponding interaction between the AS/400 
system and the finance controller with a finance 


device varied on. The device is varied on before 
this scenario begins. 


Finance Communications 


+ RSP 


BIND 


Start Data Traffic (SDT) 


ACQUIRE 


RC 0000 


WRITE Data 1 


WRITE Data 2 


RC 0000 


Begin Chain Data 1 


RC 0000 


WRITE/ENDGRP Data 3 


RC 0000 


WRITE/INVITE Data 4 


RELEASE 


Middle Chain Data 2 


End Chain, RQD Datas 


RC 0000 


Read-from-invited/devices 


Only Chain, RQE Data4a 


RC 0001 


Data 1 Data 2 Data 3 RC-0003 


CLOSE 


+ RSP 


RC 0000 


Figure C-1. SNA Commands with Corresponding ICF Application Operations 
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RC 0000 


+ RSP 


UNBIND 


Finance Controller 


INIT-SELF 


+ RSP 


« 


+ RSP 


*EXEC Program Name PIP data (RQE) 


« 


+ RSP 


Begin Chain Data 1 


Middle Chain Data 2 


End Chain Data 3 


TERM-SELF 


+ RSP 


RV2P870-0 


C-1 


In Figure C-2, the SNA session is initiated by a 
controller application program. 


Application Program Finance Communications Finance Controller 
OPEN 
> 
RC 0000 
«¢ 
ACQUIRE 
> 
BIND 
> 
+ RSP 
« 
Start Data Traffic (SDT) 
> 
+ RSP 
+ 
RC 0000 
+ 
WRITE Data 1 
> 
Begin Chain Data 1 
> 
RC 0000 
+ 
WRITE/ENDGRP/INVITE 
> 
End Chain, RQD Data 2 
> 
+ RSP 
¢ 
RC 0001 
¢ 
Read-from-invited-program devices Only Chain, Data 1 
> < 
Data 1 RC 0003 
« 
RELEASE 
> 
UNBIND 
> 
+ RSP 
Sy 
RC 0000 
«¢ 
CLOSE 
> 
RC 0000 
¢ 


RV2P871-0 


Figure C-2. SNA Commands with Corresponding ICF Application Operations on an AS/400 System-Initiated SNA 
Session 
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Appendix D. 4701 Finance Controller Diskette Download 


A 4701 finance controller must have an operating 
or initial program-load (IPL) diskette before it can 
be used. This diskette contains the basic license 
internal code, the controller configuration, and the 
application programs that can be created on a 
System/370 computer configured to support the 
4700 finance communications system. The oper- 
ating image created by the System/370 computer 
is loaded on the AS/400 system, and the file is 
sent to the 4701 controller using the system 
monitor session. This appendix describes the 
support that sends the file to the controller after it 
is loaded on the system. 


When the 4701 controller receives the file, the 
controller uses the file to create an operational 
diskette that it later uses during its own IPL proce- 
dure. The procedure for sending an operational 
diskette image is usually done only for the fol- 
lowing actions: 


e Installing the 4701 controller 
¢ Changing the 4701 application programs 
e Upgrading the 4701 controller 


Using the Send Finance Diskette 
Image Command 


The download support can be accessed through 
the Send Finance Diskette Image (SNDFNCIMG) 
command. This command includes the following 
information: 


The SNDFNCIMG command uses the file, 
member, and remote location name. 
File 
Specifies the library and the file where the 
diskette image resides. 
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Remote location name 
Specifies the remote location name of a 
finance device specified as TYPE(*FNCICF). 
This device must be attached to a 4701 
finance controller with an 8-inch diskette drive 
or a 3601 controller configured as a 4701 con- 
troller. The local location address (the 
address of the logical unit) of the device must 
be 01. 


Member 
Specifies the member in the file containing the 
diskette image which was blocked into a basic 
exchange format. 


Have the person responsible for security authorize 

your user profile to the SNDFNCIMG command 

and the QCRFDWNLD ICF file. Use the Grant 

Object Authority (GRTOBJAUT) to grant authority. 

GRTOBJAUT OBJ(QSYS/SNDFNCIMG) OBJTYPE (*CMD) 
USER(user-name) AUT(*CHANGE) 


GRTOBJAUT OBJ(QSYS/QCRFDWNLD) OBJTYPE(*FILE) 
USER(user-name) AUT(*CHANGE) 


To send the image, do the following: 


1. Do an IPL of the controller with the operating 
diskette you are currently using. 


2. Prepare the controller to accept the image. 
Start the system monitor on the controller and 
issue the 999 command to create a diskette. 


3. Vary on the system monitor to be used. 


Note: All devices attached to the controller 
description must be varied off before the 
system monitor device is varied on. 


4. Enter the SNDFNCIMG command. 


D-1 


Job: | Pgm: | Exec 


*LIBL/ 

>>—SNDFNCIMG—FILE ( -file-name—) > 
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Figure D-1. Diskette Image Format and Basic Exchange Files 


The SNDFNCIMG command creates the original 
image again and sends the operating image to the 
controller. The controller builds the operating 
diskette by writing the operating image on a blank 
diskette. When this is done, you can use the 
diskette for the IPL procedure for the controller. 


Figure D-1 shows the basic format of the diskette 
image and the basic exchange files. 


If you cannot get the basic exchange file, you can 
create the file with the following procedure: 


1. Create a diskette image file using the Host 
Diskette Image Create (HDIC) program. This 
program is a part of 4700 Finance Commu- 
nications System Host Support for an IBM 
System/370 computer, 3031, 3032, 3033, or 
4300. The diskette image file must be con- 
verted into a basic exchange file that can be 
sent by the SNDFNCIMG command. 
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RSLSO92-1 


The first record in the file is an optional 
comment record. You can write any informa- 
tion in this record to identify the file. The 
remaining records contain the data from the 
diskette image file. 


. Convert each 256-byte record from the 


diskette image into four 64-byte records, 
shown in Figure D-1. 


. Write the records to the basic exchange file. 


The required format for each data record is 
shown in Figure D-2 on page D-3. 


Each record can be from 80 to 96 bytes in 
length. You can use positions 1 through 8 for 
an optional header or comments. You can 
use positions 80 through 96, if needed, for 
optional comments. 


The SNDFNCIMG command uses the sequen- 
tial block number and sequential record 
number to ensure the correct sequence when 
the command processes the file. 


The data field contains 64 bytes of data from For more information about the diskette down- 

the diskette image file. loading support, see the /BM 4700 Finance Com- 
munications System: Subsystem Operating 
Procedures, and the Host Support User’s Guide. 


1 89 1213 1617 = 80 ) 96 
uy C ¢ ( 
Comments 


a: Ct 


Header 


i] 
Data 


L Sequential Record Number 


Sequential Block Number 
RSLS097-0 


Figure D-2. Format Required for Data Records 
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Appendix E. Intersystem Communications Function Finance 


Example Programs 


This appendix provides examples of COBOL/400, 
RPG/400, and ILE C/400 programs to demon- 
strate how finance communications is used. 


Figure E-1 on page E-2 shows representations of 
example programs. 


COBOL/400 Source Program for 
Local System 


This section describes the objects needed on the 
local system to run the ILE COBOL/400 account 
inquiry finance program. 


Configuration 


The following configuration commands are used to 
create the synchronous data link control (SDLC) 
line, controller, and device descriptions used by 
the local system. 


CRTLINSDLC LIND(FNCLINE) RSRCNAME(LINO22) ONLINE (*NO) 
ROLE(*PRI) NRZI(*YES) 

CRTCTLFNC CTLD(FNCCTL) TYPE(4702) MODEL(@) LINKTYPE(*SDLC) 

ONLINE(*NO) LINE(FNCLINE) STNADR(@1) 

DEVD(KQ@1DEV) TYPE(*FNCICF) LOCADR(03) 

RMTLOCNAME (KOO1DEV) ONLINE(*NO) CTL(FNCCTL) 


CRTDEVFNC 


Program Files 


The following files are used by the local system. 
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KO01ICF 
The ICF file used to send and receive 
records from the finance controller. This 
file was created by using the following 
command: 


CRTICFF FILE(FNCLIB/KOO1ICF) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(KOQO1ICF) 


The following command defines the program 
device entry: 


ADDICFDEVE FILE(FNCLIB/KOO1ICF) PGMDEV(FNCTRGT) 
RMTLOCNAME (*REQUESTER) 


An OVRICFDEVE command with the same 
parameters can also be used. 


K001DBF 
The database file that holds the account 
records. This file was created by using 
the following command: 


CRTPF FILE(FNCLIB/KOO1DBF) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(KQ01DBF) 


K001PRT 
The printer file used to format output to a 
printer. This file was created by using the 
following command: 


CRTPRTF FILE(FNCLIB/KOO1PRT) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(KO01PRT) 
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Source member containing DDS ...........32 KOOLICF 
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Figure E-2 (Part 1 of 2). DDS Source for ICF File KOO1ICF 
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Message Summary 


ke KKK 


Total Informational Warning Error Severe 
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* CPC7301 00 Message... 232 File KOO1ICF created in library FNCLIB. 


x**x*x*e*x END OF COMPILATION 


Figure E-2 (Part 2 of 2). DDS Source for ICF File KOO1ICF 
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SEQNBR:: *4:5 oes ooleccetevealeca cts cede ty thea cede so ctens Sine etes se Oe cu vteve doce stones 8 Date 
10 DEE EI ICIS IE ISI IIIS IE IE ISI ICI ISIE IE ICI IIS IC IOI IOI IA IAI 
20 Ax * 
30 Ax DDS * 
40 Ax FOR THE DATABASE FILE * 
50 Ax USED IN ACCOUNT INQUIRY APPLICATION PROGRAM * 
60 Ax * 
70 DEE IE IEICE IS IIR III IE IE ISI ICICI IE IAI ICI SI SII II II II IAI 
80 Ax 
90 A UNIQUE 
100 A R ACCOUNTR 
110 A ACCTNR 8 0 
120 A NAME 21 
130 A STR1 3 
140 A STR2 8 
150 A CITY 6 
160 A ZIP 5 
170 A OCUP 21 
180 A BAL 0 2 
190 A DLYWTH 0 2 
200 A DLYDEP 0 2 
210 A LIMIT1 0 2 
220 A LIMIT2 0 2 
230 A SVCS1 0 2 
240 A SVCS2 0 2 
250 A SVRM1 0 2 
260 A SVRM2 0 2 
270 A ACTIVE 1 0 
280 A LCKDSC 38 
290 A WTHDRL 0 2 
300 A K ACCTNR 


eee ** END OF SOURCE ** * * * 


Figure E-3 (Part 1 of 2). DDS Source for Database File KOO1DBF 


SEQNBR 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


Total 


0 
* CPC7301 


*, 


Expanded Source 


fetes Leathe Tease sete teats ae esate 
R ACCOUNTR 
ACCTNR 8P OB COLHDG('ACCTNR') 
NAME 21A B COLHDG ( 'NAME ') 
STR1 3A B COLHDG('STR1') 
STR2 8A B COLHDG('STR2') 
CITY 6A B COLHDG('CITY') 
ZIP 5A B COLHDG('ZIP') 
ocuP 21A B COLHDG('OCUP') 
BAL OP 2B COLHDG('TBAL') 
DLYWTH OP 2B COLHDG('DLYWTH') 
DLYDEP OP 2B COLHDG('DLYDEP') 
LIMIT1 OP 2B COLHDG('LIMIT1') 
LIMIT2 OP 2B COLHDG('LIMIT2') 
SVCS1 OP 2B COLHDG('RSVCS1') 
SVCS2 OP 2B COLHDG('RSVCS2') 
SVRM1 OP 2B COLHDG('RSVRM1') 
SVRM2 OP 2B COLHDG('RSVRM2 ') 
ACTIVE 1P 0B COLHDG('ACTIVE') 
LCKDSC 38A B COLHDG('LCKDSC') 
WTHDRL OP 2B COLHDG('WTHDRL') 
K ACCTNR 
x*x*x*x*x END OF EXPANDED SOURCE 
Message Summary 
Informational Warning Error Sever 
(0-9) (10-19) (20-29) (30-9 
0 0 0 
00 Message... 23? File KOO1DBF created i 
x*x**e*e END OF COMPILATION 


Field 


w 
DOH ANARAGAAAD 


ke RK 


e 
9) 
0 
n library FNCLIB. 


ke KR KK 


Figure E-3 (Part 2 of 2). DDS Source for Database File KOO1DBF 
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1 

6 
27 
30 
48 
64 
69 
90 
96 
102 
108 
114 
120 
126 
132 
138 
144 
145 
183 


Buffer position 


Out In 


1 

6 
27 
30 
48 
64 
69 
90 
96 
102 
108 
114 
120 
126 
132 
138 
144 
145 
183 


E-3 


FAL MAMO, sa 9 65 seccs. ters ogee cee See tty See ck, “ey Styy ies chee does, Go oe a KQO1PR 
Library name. cof i bays en td gs a ee eS FNCLIB 
Pile-attribute: oc 0056s. aoa ve seis ee ets ee Printer 
Source file containing DDS ............32 QDDSSRC 
Library: nate. Aone a a OR a ee SOR FNCLIB 
Source member containing DDS .......... +. : + KQQIPR 
Source member last changed ..........-232 06/01/89 20:24:18 
Source listing options .. 1... 2... ee ee eet *SOURCE *LIST *NOSECLVL 
DDS generation severity level ...........32 20 
DDS flagging severity level ............32 00 
AUENOR EY ss oy seo oo: ese Ge eect BS e ee ee: ee 8 CRETBERTAUT. 
Replace: fille. 4 pic s0 ve Bod ge Se Ree as OS *YES 
MOK SAS canis Sivek Nae ole diay SP sah! ape Dee ee epee ors 
Compaen” sees ve Se Pe aA ee oe en PSK LS IBM AS/400 Data Description Processor 
Data Description Source 
SEQNBR: “¥8404563. 01sec. 063032 rete esd. dnote ties b ave te. Ona scte sss Osdnctiseskecsetece 8: Date. 
10 DEE IEE ISIS IE IE IS III IE IE ISI ISIC ISIE ICI SI SIC IOI II II IAI A. 
20 Ax * 
30 Ax DDS * 
40 Ax FOR THE PRINTER FILE * 
50 Ae USED IN ACCOUNT INQUIRY APPLICATION PROGRAM * 
60 Ax * 
70 DEES EIEIO III IE IE ISI ICICI ISIE ICI I SII II II I IAI 
80 Ax 
90 DEE EE ICIS IS ISI III IE IE ISI ICSI EIS IS ICI IIS IC IOI TI II IAI. 
100 Ax RECORD FORMATS * 
110 DEE EES IS IE IRI II IEE IS ISI IGS ISIE ICI IIIT II II II IAI 
120 A R ERRREC SPACEB(3) 
130 A 5'PROGRAM TERMINATED ABNORMALLY' 
140 A 5'PROGRAM DEVICE:' SPACEB(2) 
150 A PGMDEV 10 +1 
160 A 5'RECORD FORMAT: ' SPACEB(2) 
170 A FMTNM 8 +1 
180 A 5'MAJOR CODE:' SPACEB(2) 
190 A MAJO 2 +1 
200 A 5'MINOR CODE:' SPACEB(2) 
210 A MINOI 2 +1 
x**x*e*ee END OF SOURCE ** * ** 
Expanded Source 
Field Buffer position 
SEQNBR Out In 
120 R ERRREC SPACEB(3) 
130 5'PROGRAM TERMINATED ABNORMALLY' 29 
140 5'PROGRAM DEVICE:' SPACEB(2) 5 
150 PGMDEV 10A 0 21 0 1 
160 5'RECORD FORMAT: ' SPACEB(2) 4 
170 FMTNM 8A 0 20 8 ll 
180 5'MAJOR CODE:' SPACEB(2) 1 
190 MAJO! 2A 0 17 2 19 
200 5'MINOR CODE:' SPACEB(2) 1 
210 MINOI 2A 0 17 2 21 
xx*x*e*e END OF EXPANDED SOURCE ***** 
Message Summary 
Total Informationa Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
() 0 ) ) 0 
* CPC7301 00 Message... 23? File KOO1PRT created in library FNCLIB. 
x**x*ee*e END OF COMPILATION ** *** 
Figure E-4. DDS Source for Printer File KOO1PRT 
E-4 Finance Communications Programming V4R1 


Program Explanation: The following 
explains the COBOL/400 account inquiry program 
example in Figure E-5 on page E-6. 


This section of the program defines the 
database file (KO01DBF), the ICF file 
(KOO1ICF), and the printer file (KO01PRT) 
used in the program. 


K001DBF is the database file that contains 
the customer account information. 


KOO1ICF is the ICF file that sends records 
to and receives records from the online 
terminal support (OTS) application 
program on the finance controller. 


KO001PRT is the printer file that sends 
communication error information to a 
printer device from the account inquiry 
program on the AS/400 system. 


The ERROR-SECTION section of the 
program defines the error handling proce- 
dure for I/O errors on the KOO1ICF file. It 
is automatically called when an exception 
occurs while the program is running. 
Feedback data is moved to a printer 
record (ERRREC) and the record is 
printed. The session is ended by 
releasing the finance device. The files are 
then closed and the program is ended. 


The program opens the files to be used. 
The program device (FNCTRGT) used by 
the program is explicitly acquired. This 
program device was previously added to 
the ICF file (KOO1ICF) by the 
ADDICFDEVE command. 


The parameters passed to the account 
inquiry program by the finance controller 
are placed in a data structure. If the 
account number is not among the parame- 
ters passed, a message is sent to the 
finance controller and the program is 
ended. 


A read operation is done from the data- 
base file (with the account number as the 
key). 


If the account number is not in the data- 
base file, a message is sent to the finance 
controller and the program is ended. Oth- 
erwise, the account inquiry is a valid 
inquiry, and control is passed to to 
process the transaction. 


This routine sends the inquiry reply in two 
records. The first record contains cus- 
tomer information, and the second record 
contains account information. 


Note: The finance controller supports an 
RU size of 256 bytes. Therefore, if the 
inquiry reply was to be sent using one 
record, the data separators (hex 
‘FFFFFFFF'’) in the customer information 
data structure (FORMATTED-DATA-2) 
must be removed, and the 16-byte finance 
header must be inserted again after the 
first 256 bytes. 


This routine is called to build and send the 
error messages to the finance controller by 
passing control to ER]. 


This routine is called to build and send the 
customer information to the finance con- 
troller by passing control to fq. 


This routine is called to build and send the 
account information to the finance con- 
troller by passing control to fq. 


A write operation with the account inquiry 
response is sent to the program device 
that sent the inquiry. 


Note: For performance reasons, the 
INVITE keyword is specified as part of 
VARREC format. For more information, 
see “Responses” on page 7-1. 


This routine is called to end the program. 
The session is ended by releasing the 
finance device and closing the files. 
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Program 
Library 
Source file 
Library 
Source member 
Generation severity level 


Text 


Source listing options 
Generation options 


“description” wade weet 


Message limit: 


Num 


Message limit severity 


Print 


Library 
FIPS flagging 


SAA f 


ber of messages 


TOT oy cee Stele Aen, Maeede Sie eS 


agging 


kool 
FNCLIB 

PGMSRC 
FNCLIB 

Kool 

29 

*BLANK 


07/17/89 14:12:37 


*NOMAX 
29 
QSYSPRT 
*LIBL 
*NOFIPS *NOSEG *NODEB *NOOBSOLETE 
*NOFLAG 


Flagging severity .........: 0 
Replace program ..........032 *YES 
Target release... 2... 2. ee et *CURRENT 
User profile ee 52% .ce See eat RUSER 
Authority: “oh: Siete aecd ge a sb wicaee Ff *LIBCRTAUT 
COMP T VOM: sven ee est woes dep os ee ch wk IBM AS/400 COBOL/400 
SIMT -SEQNBR:SAy 1: Bis Fee 2ise Re en i Sece Fess nes Fioes Die oe oP ee ee Daeine Hs 8 
1 000100 IDENTIFICATION DIVISION. 
000200 
2 00300 PROGRAM-ID. KO001. 
000400 
(0050 Qe ere EEE IE IE IEICE IE IE ISIE CIE IE IE IFSC SCIEE IEE IS ISI ICIS IA II II Sea 
000600* * 
000700* PROGRAM TO HANDLE ACCOUNT INQUIRY FROM A FINANCE * 
000800* CONTROLLER. * 
000900* * 
0.0.00 G2 ee EE IE IE IE IEICE IE IE IE IEICE IE IE IRIS SCIEE IE IS ISI ICI IR II II Sa 
001100 
3 001200 ENVIRONMENT DIVISION. 
001300 
4 01400 CONFIGURATION SECTION. 
5 01500 SOURCE-COMPUTER. IBM-AS400. 
6 001600 OBJECT-COMPUTER. IBM-AS400. 
001700 
7 001800 SPECIAL-NAMES. I-0-FEEDBACK IS FEEDBACK-AREA. 
001900 
8 002000 INPUT-OUTPUT SECTION. 
9 002100 FILE-CONTROL. 
002200 
10 002300 SELECT KOO1DBF 
11 002400 ASSIGN TO DATABASE-K001DBF 
12 002500 ORGANIZATION IS INDEXED 
13 002600 ACCESS MODE IS RANDOM 
14 002700 RECORD KEY IS EXTERNALLY-DESCRIBED-KEY. 
002800 
15 002900 SELECT KOO1ICF 
16 003000 ASSIGN TO WORKSTATION-KOO1ICF-SI 
17 003100 ORGANIZATION IS TRANSACTION 
18 003200 CONTROL-AREA IS TRAN-CTL-AREA 
19 003300 FILE STATUS IS STATUS-IND MAJ-MIN. 
003400 
20 003500 SELECT KOO1PR 
21 003600 ASSIGN TO FORMATFILE-KOO1PRT 
22 003700 ORGANIZATION IS SEQUENTIAL. 
003800 
23 003900 DATA DIVISION. 
004000 


Figure E-5 (Part 1 of 11). COBOL/400 Program 


E-6 


Finance Communications 


Programming V4R1 


..7..IDENTFCN S COPYNAME 


CHG DATE 


24 004100 FILE SECTION. 
004200 
25 004300 FD KOO1DBF 


26 004400 LABEL RECORDS ARE STANDARD. 

27 004500 @1 ACCOUNT-REC. 

28 004600 COPY DDS-ACCOUNTR-I-0 OF KOO1DBF. 
+000001* 1-0 FORMAT:ACCOUNTR FROM FILE KOO1DBF OF LIBRARY FNCLIB ACCOUN 
+000002* ACCOUNTR 
+000003*THE KEY DEFINITIONS FOR RECORD FORMAT ACCOUNTR ACCOUN 
+000004* NUMBER NAME RETRIEVAL TYPE ALTSEQ ACCOUN 
+000005* 000 ACCTNR ASCENDING SIGNED NO ACCOUNTR 

29 +000006 05 ACCOUNTR. ACCOUN 

30 +000007 06 ACCTNR PIC S9(8) COMP-3. ACCOUN 

31 +000008 06 NAME PIC X(21). ACCOUN 

32 +000009 06 STR PIC X(3). ACCOUNTR 

STMT SEQNBR -A 1 Beet. ccc2e ce ete cede cect bee ce tee e De ee ete ne Bees. tenes 7. IDENTFCN S COPYNAME CHG DATE 

33 +000010 06 STR2 PIC X(18). ACCOUN 

34 +000011 06 CITY PIC X(16). ACCOUNTR 

35 +000012 06 ZIP PIC X(5). ACCOUN 

36 +000013 06 OCU PIC X(21). ACCOUN 

37 +000014 06 TBAL PIC S$9(8)V9(2)  COMP-3. ACCOUN 

38 +000015 06 DLYWT PIC S9(8)V9(2) | COMP-3 ACCOUNTR 

39 +000016 06 DLYDE PIC S$9(8)V9(2) — COMP-3 ACCOUN 

40 +000017 06 LIMIT1 PIC S$9(8)V9(2) | COMP-3 ACCOUN 

41 +000018 06 LIMIT2 PIC S9(8)V9(2)  COMP-3. ACCOUNTR 

42 +000019 06 RSVCS PIC $9(8)V9(2)  COMP-3. ACCOUN 

43 +000020 06 RSVCS2 PIC S9(8)V9(2) | COMP-3 ACCOUN 

44 +000021 06 RSVRM1 PIC S$9(8)V9(2) — COMP-3 ACCOUN 

45 +000022 06 RSVRM2 PIC S9(8)V9(2)  COMP-3 ACCOUNTR 

46 +000023 06 ACTIVE PIC S9(1) COMP-3. ACCOUN 

47 +000024 06 LCKDSC PIC X(38). ACCOUN 

48 +000025 06 WTHDRL PIC S9(8)V9(2)  COMP-3. ACCOUN 

004700 

49 004800 FD KOOLICF 

50 004900 LABEL RECORDS ARE STANDARD. 

51 005000 01 ICFREC. COPY DDS-ALL-FORMATS OF KOO1ICF. 

52 +000001 05 KOO1ICF-RECORD PIC X(517). <-ALL-FMTS 
+000002* INPUT FORMAT: VARREC FROM FILE KOOLICF OF LIBRARY FNCLIB <-ALL-FMTS 
+000003* <-ALL-FMTS 

53 +000004 05 VARREC-I EDEFINES KOO1ICF-RECORD. <-ALL-FMTS 

54 +000005 06 DTAREC PIC X(512). <-ALL-FMTS 
+000006* OUTPUT FORMAT: VARREC FROM FILE KOOLICF OF LIBRARY FNCLIB <-ALL-FMTS 
+000007* <-ALL-FMTS 

55 +000008 05 VARREC-0 EDEFINES KOO1ICF-RECORD. <-ALL-FMTS 

56 +000009 06 DTAREC PIC X(512). <-ALL-FMTS 

57 +000010 06 LENREC PIC S9(5). <-ALL-FMTS 

005100 

58 005200 FD KQO1PRT 

59 005300 DATA RECORD IS PRT-REC. 

60 005400 01 PRT-REC. COPY DDS-ALL-FORMATS-O OF KOO1PRT. 

61 +000001 05 KQO1PRT-RECORD PIC X(22). FMTS 
+000002* OUTPUT FORMAT: ERRREC FROM FILE KOO1PR OF LIBRARYFNCLIB MTS 
+000003* FMTS 

62 +000004 05 ERRREC-0 EDEFINES KO01PRT-RECORD. FMTS 

63 +000005 06 PGMDEV PIC X(10). FMTS 

64 +000006 06 FMTNM PIC X(8). FMTS 

65 +000007 06 MAJOR PIC X(2). FMTS 

66 +000008 06 MINOR PIC X(2). FMTS 

005500 
67 005600 WORKING-STORAGE SECTION. 
005700 

68 005800 77 STATUS-IND PIC XX. 

69 005900 77 INDON PIC 1 VALUE B"1". 

70 006000 77 INDOFF PIC 1 VALUE B"0". 

OB LOO KKK RA KKK KKK KKK KKK KIKI KIKI KKK IK KIRK KIKI KK KKK RK, 
006200* PROGRAM DEVICES * 
QO B30 Q x mk KK KKK RRA KKK KKK RIKKI KK KIKI KIKI KKK IKK KIRK KI KK KI KK KKK RK 
71 006400 77 WS-PGMDEV PIC X(10) VALUE "FNCTRGT ". 
006500 
72 006600 01 PGM-INDIC-AREA. 
73 006700 05 PGM-INDIC IC 1 OCCURS 99 TIMES 


Figure E-5 (Part 2 of 11). COBOL/400 Program 
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STMT 
74 


75 
76 
77 
78 


79 
80 
81 
82 
83 
84 
85 
86 


87 
88 
89 


90 
91 
92 
93 
94 


95 
96 
97 
98 
99 
00 
01 
102 
03 
04 
05 
106 
07 
08 
109 
10 
11 
12 
113 
14 
15 
116 


SEQNBR -A 1 Bi.te ee Qe ete Bec e tee beet Dee ete Bee ete 
006800 
006900 
007000 
007100 
007200 
007300 
007400 
007500 
007600 
007700 
007800 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


07900 
08000 
08100 
08200 
08300 
08400 
08500 
08600 
08700 
08800 
08900 
09000 
09100 
09200 
09300 


01 


01 


01 


01 


INDICATOR 1. 
TRAN-CTL-AREA. 
05 FILLER PIC X(2). 
05 PGM-DEV-NAME PIC X(10). 
05 RCD-FMT-NAME PIC X(10). 
FEEDBACK-DATA. 
05 FILLER C x(20). 
05 FMTNM PIC X(10). 
05 FILLER PIC X(2). 
05 PGM PIC X(10). 
05 FILLER C X(136) 
05 MAJO PIC X(2). 
05 MINO PIC X(2) 
MAJ-MIN. 
05 MAJ PIC X(2) 
05 MIN C x(2) 
FILLER. 
05 FFFFFF PIC 9(8) COMP-4 VALUE 16777215. 
05 FILLER REDEFINES FFFFFF. 
10 FILLER PIC x. 
10 FFS PIC XXX. 


++.7..IDENTFCN S COPYNAME CHG DATE 


07/17/89 
07/17/89 


07/17/89 


0094.0 OAR EEE EOS E CIEE S ESOS ISCO S IS ISCO SIE CIO SIS TOI I TO II I 


009500* FORMAT OF THE DATA SENT BY THE FINANCE CONTROLLER. 


QO QB OO x x x eH KKK RAK RK KKK KKK KKK KIKI KIKI KKK IKK KIRK IKK KI IK KKK EK, 


* 


* 


* 


009700 01 FNC-INPUT-DATA. 

009800 10 FNC-CTL-ITEMS. 

009900 15 WSTYPE C XX. 

010000 15 CTLUNIT C XX. 

010100 15 WSNO C XX. 

010200 15 AUDTNO PIC XX. 

010300 15 ELLERNO C 999. 

010400 15 LINENBR C 99. 

010500 15 NCDE PIC XXX. 

010600 15 SPLFNCT CX. 

010700 15 RESVRD C XXX. 

010800 15 CTLUTYPE CX. 

010900 10 FNC-DATA-AREA. 

011000 15 FLD1P CX 

011100 15 FLD2P CX 

011200 15 FLD3P PIC X 

011300 15 FLD4P Cx 

011400 15 FLD5P CX 

011500 15 FLD6P CX 

011600 15 FLD7P PIC X. 

011700 15 NPUT-FIELD C X(10) OCCURS 7 TIMES 
011800 INDEXED BY FLD. 
011900 

0.1200 02 AE EEE OS OSCE IS ECOG SCO S IS ISCO S ISCO SIS TOI I TO III I 
012100* FORMAT OF THE DATA SENT BY THE AS/400 TO THE FINANCE 
012200* CONTROLLER. 

00.123 002 RE EER ESOS S CIEE S ECOG CIO SIS IESG ISCO IS TOI I TO II I 


Figure E-5 (Part 3 of 11). COBOL/400 Program 
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STMT SEQNBR -A 1 Beit. 2c ete cede eee tee bee e tee Dace ete ne Bees eteee eZ. IDENTFCN S COPYNAME CHG DATE 


117 
118 


119 
120 


121 
122 
123 


124 
125 
126 
127 
128 
129 


130 
31 
32 
133 
34 
135 
36 
137 
38 
39 
40 
41 
142 
43 
144 
45 
46 
47 
48 
149 


fo) 


SLPFSPSPSPSPDSPDSPDSD®SPDTSDDDSPDTDODDTDD®SPDTSODTDO®TCDSOTDD®SPDTDOCTDO®DCD DOF OC GOGO 


2400 01 FNC-OUTPUT-DATA. 

2500 05 FNC-CONTROL. 

2.69022 EGE EES SCOR ISCO S ISOC SISSIES TOS ISCO ISTO TOI TTI IR 
2700* THE TERMINAL-MODE VARIABLE PUTS THE 4704 DISPLAY INTO * 
2800* LARGE SCREEN MODE WHEREBY 1920 CHARACTERS ARE DISPLAYED, * 
2900* THEREBY ALLOWING MORE INFORMATION TO BE DISPLAYED, WHEN * 


3000* THE VARIABLE IS SET TO 1. * 
3 LODE OR SECO SCO S ISOS S ISSO S IS CISC IS TO IIIT TI IR 
3200 10 ERMINAL-MODE PIC 9 VALUE IS 0. 

3300 10 FILLE PIC X(4) VALUE SPACES. 


BLO D2 EES COS ISOS ISOC SISSIES CIOS IS CISC IS TO III TO TI IR 


3500* THE MORE-DATA VARIABLE INFORMS THE FINANCE CONTROLLER THAT* 


3600* MORE DATA IS YET TO COME (THE TRANSACTION HAS NOT * 
3700* COMPLETED), WHEN THE VARIABLE IS SET TO 1. * 
38002 EEE SEIS SESE OEIC S GIGS OSGI III III III A I 
3900 10 MORE-DATA Ic 9 VALUE IS 0. 

4000 10 FILLE PIC X(10) VALUE SPACES. 
4100 05 FNC-FORMATTED-DATA PIC X(240). 

4200 

G3 OD mR KKK RRA KIRK KKK KKK KKK KIKI KKK IK KK IK KK IKK KI IK KIKI RIKKI KKK 
4400* DATA FORMAT FOR ERROR MESSAGE DISPLAY. THE FOLLOWING * 
4500* ERRORS ARE HANDLED: ACCOUNT NUMBER NOT FOUND. * 
O17 00 ESI FEISS ISIC ICICI CCCI III II ITI IIA A I 
4800 01 FORMATTED-DATA-1. 

4900 05 —NEW-PAGE- IC xX. 

5000 05 TEXT- PIC X(30). 

5100 05 ACCTN IC ZZZZ2ZZZ2. 

5200 05 DATA-SEP- IC X. 

5300 05 LASTFF-1 IC XXX. 

5400 

BD OQ KAA K KKK KKK KKK KKK KKK RK KKK KKK RK KK RK KK RK KKK KKK RK KKK RRR KEKE RE RE RE, 
5600* DATA FORMAT FOR FIRST HALF OF VALID INQUIRY DISPLAY. * 
FOOSE E ISI FIFE CEI IC CII III III III III IISA 
5800 01 FORMATTED-DATA-2. 

5900 05 NEW-PAGE-2 ex. 

6000 05  SETPOS-2A CX 

6100 05  MOVHOR-2A cx. 

6200 05  HEX20-2A CX. 

6300 05 DATE-2 C 22/22/22. 

6400 05  NEWLIN-2B PIC X. 

6500 05 FILLE C X(5) VALUE "ACC#:". 

6600 05 ACCTN C 22222229. 

6700 05 FILLER PIC X. 

6800 05 NAME C X(21). 

6900 05  NEWLIN-2C coe 

17000 05 SETPOS-2C CX. 

7100 05  MOVHOR-2C Cul. 

7200 05 HEXOF-2C ex, 

7300 05 STR C XXX. 

7400 05 STR2 c x(18). 

7500 05  NEWLIN-2D ex: 

7600 05  SETPOS-2D CX. 

7700 05  MOVHOR-2D CX. 


Figure E-5 (Part 4 of 11). COBOL/400 Program 
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STMT SEQNBR -A 1 B..t....2eccetecc Sec ete cede ceetess Desc ctecesOeceetesse7ssIDENTFCN S COPYNAME 
50 017800 05  HEXOF-2D 1¢-X. 
51 017900 05 CITY IC X(16). 
52 018000 05 NEWLIN-2E IC xX. 
53 018100 05  SETPOS-2E IC xX. 
54 018200 05  MOVHOR-2E PIC X. 
155 018300 05 HEXOF-2E IC xX. 
56 018400 05  OcuP IC X(21). 
57 018500 05 DATA-SEP-2 PIC X. 
58 018600 05 LASTFF-2 PIC XXX. 
018700 
OL BOQ x x xk KKK KKK KKK KKK KKK KKK KK KIKI KIKI KKK IK KK IKK EI KK IKK RIK KR. 
018900* DATA FORMAT FOR SECOND HALF OF VALID INQUIRY DISPLAY. * 
O19 OOO x eH KKK KKK RK KIRK KKK IKK KICK IK IKI KKK IKK RIKKI KKK IKK KIRK RK. 
59 19100 01 FORMATTED-DATA-3. 
60 019200 05  SETPOS-3 EX. 
161 019300 05  SETLIN-3 eG 
62 019400 05  HEX06-3 CX. 
63 019500 05 FILLE C X(5) VALUE "BAL :". 
64 019600 05 = TBAL PIC ZZ,ZZZ,ZZZ.99-. 
165 019700 05 FILLE C X(5). 
66 019800 05 FILLE C X(10) VALUE "TOT.RSRVD:". 
67 019900 05 NEWLIN-3A PIC X. 
168 620000 05 FILLE C X(5) VALUE "DEP :". 
69 020100 05 DLYDEP C 2Z,22Z,222.99. 
70 020200 05 FILLE PIC X(3). 
71 020300 05 TOTRSV-3 C 2Z,22Z,222.99-. 
72 020400 05  NEWLIN-3B CX. 
73 020500 05 FILLE C X(5) VALUE "WTH :" 
74 020600 05 DLYW C 2Z,22Z,222.99. 
175 020700 05 NEWLIN-3C CX. 
76 020800 05 FILLE C X(5) VALUE "LMT1:". 
77 020900 05 LIM C 2Z,22Z,222.99. 
78 021000 05 NEWLIN-3D PIC X. 
179 021100 05 FILLE C X(5) VALUE "LMT2:". 
80 021200 05 LIMIT2 C 2Z,22Z,222.99. 
81 021300 05 NEWLIN-3E PIC X. 
182 021400 05 FILLE C X(5) VALUE "W/B :". 
83 021500 05 WRKBAL-3 C 2Z,22Z,222.99. 
84 021600 05 NEWLIN-3F PIC X. 
85 021700 05 LCKDSC PIC X(38). 
186 021800 05  DATA-SEP-3 CXxs 
87 021900 05 — LASTFF-3 PIC XXX. 
022000 
022 1002 EEE IESG IE IIS ISG IS SIGS OCIS III CCI III II IIA I A 
022200* DATA AREA TO DEFINE THE HEX VALUES NEEDED IN THE PROGRAM x 
022300* TO SEND CONTROL CHARACTERS TO THE FINANCE CONTROLLER. * 
0224.0 02 EASES IESE IGE ISIS ISSCC ICICI IOI TI I IA 
188 022500 01 DUMMY1. 
022600* 05 HEXOC CX. 
022700* 05 HEXI5 PIC X. 
189 022800 06 BIN1 C 9999 COMP-4 VALUE IS 3093. 
022900* 05 HEXO8 Cx. 
023000* 05 HEX34 PIC X. 
190 023100 06 BIN2 PIC 9999 COMP-4 VALUE IS 2100. 
023200* 05 HEXO4 CX. 
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CHG 


DATE 


STMT SEQNBR -A 1 Beet. 2e cette cede eee tee bee ee tee Dee ete ne Benes tees eZ. IDENTFCN S COPYNAME CHG DATE 
023300* 05 HEXFF CX 
91 023400 06 ~=BIN3 c9 
023500* 05 EX02 cx 
023600* 05 EX12 CX. 
92 023700 06 = BIN4 C 9999 COMP-4 VALUE IS 530. 
023800* 05 EXOD CX 
023900* 05 EX25 CX. 
93 024000 06 BINS C 9999 COMP-4 VALUE IS 3365. 
024100* 05 EXOF PIC X. 
024200* 05 EX20 Cx 
94 024300 06 BIN6 c9 
024400* 05 EXOA cx 
024500* 05 EX06 cx 
95 024600 06 = BIN7 c9 
024700* 05  DUMMYOO cx 
024800* 05 ~LINENBR-HEX CX 
96 024900 06 BIN-LINENBR c9 
025000 


25 OQ x me KKK KKK KIRK KKK KK KKK KK IK I KIKI KKK IK KK IKK IKK KI IR KIRA RK, 


025200* REDEFINES AREA TO GIVE THE HEX CONTROL CODES MEANINGFUL »* 


999 COMP-4 VALUE IS 3872. 


999 COMP-4 VALUE IS 2566. 


999 COMP-4. 


025300* NAMES. * 
0254.0 Dee E IESE ISS E IEE IS SI ISO CICI ISCO TI IIA 

197 025500 01 DUMMY2 REDEFINES DUMMY1. 

198 025600 05 —NEWPAG cx 

199 025700 05 NEWLIN cx 

200 025800 05  MOVHOR PIC X 

201 025900 05 — SETPOS cx 

202 026000 05 SETLIN cx 

203 026100 05 DTASEP cx 

204 026200 05  HEXO2 cx 

205 026300 05 HEX12 cx 

206 026400 05  HEXOD cx 

207 026500 05 — HEX25 Gx 

208 026600 05 HEXOF cx 

209 026700 05 — HEX20 cx 

210 026800 05  HEXOA cx 

211 026900 05  HEX06 cx 

212 027000 05 — DUMMYOO cx 

213 027100 05 — LINENBR-HEX cx 


027200 
027 BOQ KKK KK KAKI KR KKK KKK KK IKK KICK IK IKI KKK KKK IK KK IKK IIR KKK KK. 
027400* THESE ARE THE MESSAGES USED BY THE PROGRAM. * 


027 BOQ KKK KR KKK KR KKK KKK KKK KK IK KK IK KK KKK KK IKK RIKKI KK RIK KEK, 


214 027600 01 MESSAGES. 


215 027700 05 MSG PIC X(30) VALUE "ACCOUNT NR. NOT FOUND". 
216 027800 05 MSG2 PIC X(30) VALUE "ACCOUNT NR. NOT PASSED". 
027900 


217 028000 01 ACCOUNT-STATUS PIC 9. 
218 028100 88 VALID-ACCOUNT VALUE IS 1. 


028200 
219 028300 01 EDATE PIC 999999. 
220 028400 01 ACCTNO PIC $9(8). 
221 028500 01 WRKBAL PIC 9(8)V99 COMP-3. 
222 028600 01 TOTRSV PIC 9(8)V99 COMP-3. 
028700 
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STMT SEQNBR -A 1 Bi.te. 2c ete eee te ete Dee ete Oe ee ete eee 7. IDENTFCN 


0.288 00 EEE E ICSE CIES ESOS ISCO S IS IOC OS ISCO SIS TOI I TO II I 
028900* THESE ARE THE PARAMETERS PASSED TO THE PROGRAM BY THE * 
029000* FINANCE SUPPORT FACILITY. * 


29 1 OQ x kK KKK KKK KR KKK KKK KK KKK KIKI KIKI KKK KKK IK KEI IK KI KK KKK EK, 


223 
224 
225 


228 


229 


230 


231 


029200 LINKAGE SECTION. 


029300 01 DATA-PARM PIC X(256). 
029400 PROCEDURE DIVISION USING DATA-PARM. 
029500 
0.29 60 G2 ere EEE IE IE IE IESE IE IE IE IEICE IE IE IFC IIE IEE IE ISI IIIA IE II III 
029700 * 
029800* THE FOLLOWING DECLARATIVES SECTION IS AN ERROR ROUTINE * 
029900* THAT IS RUN WHEN AN ERROR OCCURS ON THE READ OR WRITE * 
030000* OF THE ICF FILE "KOO1ICF". THE ROUTINE MOVES DATA FROM * 
030100* THE I-0 FEEDBACK AREA TO THE "ERROR" FORMAT OF THE PRINT * 
030200* FILE "KOO1PRT". THE PROGRAM IS TERMINATED RELEASING * 
030300* THE FINANCE DEVICE, AND CLOSING ALL FILES. * 
030400* * 
03050 Qe rere EEE IE IE IE IF IF IE IE IS IEICE IE IE IF ICI CIE IEE IE ISI ICICI IA II III 
030600 DECLARATIVES. 
030700 ERROR-SECTION SECTION. 
030800 USE AFTER EXCEPTION PROCEDURE ON I-0. 
030900 ERROR-PARAGRAPH. 
031000 ACCEPT FEEDBACK-DATA FROM FEEDBACK-AREA. 
031100 MOVE CORRESPONDING FEEDBACK-DATA TO ERRREC-0. 
* ** CORRESPONDING items for statement 227: 
* ** FMTNM 
* ek PGMDEV 
* ek MAJO! 
* ad MINOI 
* ** End of CORRESPONDING items for statement 227 
031200 WRITE PRT-REC FORMAT IS "ERRREC". 
031300 
031400 DROP WS-PGMDEV FROM KOOLICF. 
031500 
031600 CLOSE KOO1ICF 
031700 KQ01DBF 
031800 KOO1PRT. 
031900 
032000 STOP RUN. 
032100 END DECLARATIVES. 
032200 
032300 MAIN-PROGRAM SECTION. 
032400 INITIALIZE-PROGRAM. 
032500 OPEN I-0 KOO1ICF. 
032600 OPEN I-0 KOO1DBF. 
032700 OPEN OUTPUT KOO1PRT. 
032800 
032900 ACQUIRE WS-PGMDEV FOR KOO1ICF. 
033000 
033100 ACCEPT EDATE FROM DATE. 
033200 MOVE ZEROES TO PGM-INDIC-AREA. 
033300 
033.40 Qe ere EES IE IE IE IEE IE IE IE ISIS CIE IE IF IRIE ISIE IE ICIS IA II II Ia 
033500 * 
033600* THE DATA COMES INTO THE PROGRAM FROM THE FINANCE * 
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S  COPYNAME 


CHG DATE 


STMT SEQNBR -A 1 Beit. . 2c ete cede eect eee bee e tee Dace ete ne Oe eeeteee eZ. IDENTFCN S COPYNAME CHG DATE 
EVEN FIELDS. THERE ARE SEVEN FLAGS 


033700* CONTROLLER WITH UP TO S * 
033800* THAT INDICATE WHICH FIELDS ARE PRESENT: * 
033900* F FIELD ONE IS PRESENT, FLDIP IS "1", OTHERWISE * 
034000* Tass, * 
034100* F FIELD TWO IS PRESENT, FLD2P IS "2", OTHERWISE * 
034200* Tas, * 
034300 AND SOON... * 
034400* THE DATA IS LOADED SEQUENTIALLY INTO THE AVAILABLE FIELDS « 
034500 SO IF THE OPERATOR ENTERS FIELDS 1, 3, 5, AND 7, THE DATA = 
034600* WILL BE STORED IN INPUT FIELDS 1, 2, 3, AND 4. IT IS * 
034700* NECESSARY TO TEST FOR THE PRESENCE OF THE FIELDS AND MOVE * 
034800 EACH INPUT FIELD INTO THE CORRECT FIELD IN THE PROGRAM. ~ 
034900* SINCE THIS PROGRAM ONLY DEALS WITH ACCOUNT INQUIRIES, IF = 
035000* AN ACCOUNT NUMBER IS NOT PASSED, A MESSAGE WILL BE SENT. = 
035100* * 
O35 20Q x x em KKK KR KKK KK KK KKK KKK KK IK IK IKK KKK IKK KIKI IK KI KK KKK KK. 
035300 
238 035400 MOVE DATA-PARM TO FNC-INPUT-DATA. 
239 035500 SET FLD TO 1. 
035600 
240 035700 F FLDIP = "1" 
035800 HEN 
241 035900 MOVE INPUT-FIELD(FLD) TO ACCTNO 
242 036000 ERFORM PROCESS-TRANSACTION 
036100 ELSE 
243 036200 MOVE MSG2 TO TEXT-1 
244 036300 ERFORM BUILD-FORMAT-1. 
036400 
245 036500 ERFORM CLEAN-UP. 
036600 
036700 
O36 BOQ x x xk KKK KKK KKK KKK KKK KKK KK IK I KIKI KKK IKK KIRK IKK KI IK KIRK KKK, 
036900* * 
037000* BEGIN PROCESSING THE TRANSACTION - * 
037100* A READ FROM THE DATABASE FILE IS DONE USING THE ACCOUNT 
037200* NUMBER AS THE KEY. IF THE READ WAS SUCCESSFUL, CUSTOMER « 
037300* AND ACCOUNT INFORMATION IS SENT BACK TO THE CONTROLLER. * 
037400* IF THE READ WAS UNSUCCESSFUL, A MESSAGE STATING THAT THE = 
037500* ACCOUNT NUMBER WAS NOT FOUND WILL BE SENT TO THE * 
037600* CONTROLLER. THE FILES ARE THEN CLOSED AND THE PROGRAM * 
037700* IS TERMINATED. * 
037800* * 
01379002 ERE EIS IFES IIE ISIS GSI ISOC III CII III TI IIA I A 
038000 PROCESS-TRANSACTION. 
246 038100 MOVE 1 TO ACCOUNT-STATUS. 
i247 038200 MOVE ACCTNO TO ACCTNR OF ACCOUNT-REC. 
248 038300 EAD KOO1DBF INVALID KEY MOVE 0 TO ACCOUNT-STATUS. 
038400 
[i250 038500 F VALID-ACCOUNT 
038600 HEN 
251 038700 PERFORM VALID-INQUIRY 
038800 ELSE 
252 038900 MOVE MSG1 TO TEXT-1 
253 039000 PERFORM BUILD-FORMAT-1. 
039100 


Figure E-5 (Part 8 of 11). COBOL/400 Program 


Appendix E. Intersystem Communications Function Finance Example Programs E-13 


STMT SEQNBR -A 1 B..+....2... 


256 
257 


266 


267 


268 
269 


039200 


393 OQ x x xm KKK KK RAK K KKK KKK KKK KIKI KIKI KKK IKK KIRK RIKKI KIKI KK, 


039400* 
039500* 
039600* 
039700* 
039800* 
039900* 


THE PROCEDURE TO DO A VALID INQUIRY SENDS OUT THE DISPLAY 
IN TWO RECORDS. THE FIRST RECORD HAS THE BASIC CUSTOMER 
INFORMATION ACCOUNT, NAME, AND ADDRESS. THE SECOND HAS 
THE BALANCE INFORMATION. 


ee  * e OF 


O00 Or EER EEOC OSCE S SECIS ISCO S SISOS ISIS IS TO II TO III I 


040100 VALID-INQUIRY. 


040200 
040300 
040400 
040500 
040600 
040700 
040800 
040900 
041000 


PERFORM BUILD-FORMAT-2. 
COMPUTE WRKBAL = TBAL OF ACCOUNT-REC 


- DLYWTH OF ACCOUNT-REC 
+ DLYDEP OF ACCOUNT-REC 
+ LIMIT1 OF ACCOUNT-REC 
+ LIMIT2 OF ACCOUNT-REC. 


COMPUTE TOTRSV = RSVCS1 + RSVCS2 + RSVRM1 + RSVRM2. 
PERFORM BUILD-FORMAT-3. 


0.4.1 LOD: EEE OSE EIS OS ESOS SCE S IS ISCO SISOS IS TOI I TO III I 


041200* 
041300* 
041400* 


A MESSAGE 


* 


S SENT TO THE CONTROLLER. * 


* 


00. SOD eR REECE SSIES CSCO SSCS S IS IOC OS IE CIOS IS TOI I TO TI I 


041600 BUILD-FORMA 


041700 
041800 
041900 
042000 
042100 
042200 
042300 
042400 
042500 
042600 
042700 


-1. 


MOVE ACCTNO TO ACCTNR OF FORMATTED-DATA-1 


MOVE 0 


0 TERMINAL-MODE. 


MOVE NEWPAG TO NEW-PAGE-1. 
MOVE DTASEP TO DATA-SEP-1. 
MOVE FFS TO LASTFF-1 


MOVE FORMATTED-DATA-1 TO FNC-FORMATTED-DATA. 


MOVE 59 


O LENREC OF VARREC-0. 


PERFORM SEND-RESPONSE. 


028 0 OnE EEO ESSE E IS ESOS ECOG ISIS CIOS IS IOS IS TOI I TTI IR 


042900* 
043000* 
043100* 


THE CUSTOME 


* 


INFORMATION IS SENT TO THE CONTROLLER. * 


* 


0032002 EE EERE S CIES SECO SECIS S IS IESG IOS IS TOI I TO III I 


043300 BUILD-FORMAT-2. 
ESPONDING ACCOUNTR TO FORMATTED-DATA-2. 
RESPONDING items for statement 266: 


043400 


4 oe * FH XH 


043500 
043600 
043700 
043800 


MOVE CORI 
x CO 
+ 
+ 
oe 
ee 


aK 


ocuP 


** End of CORRESPONDING items for statement 266 
MOVE EDATE TO DATE-2. 


MOVE 1 TO TERMINAL-MODE. 
MOVE NEWPAG TO NEW-PAGE-2. 
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bee te deeb Dee ete 6... et. .667..IDENTFON oS  COPYNAME 


CHG DATE 


STMT SEQNBR -A 1 Beet... Qe ete deeb e  beeete De eect Bene ete eee 7. IDENTFCN 
270 043900 MOVE NEWLIN TO NEWLIN-2B, NEWLIN-2C, NEWLIN-2D, NEWLIN-2E. 

271 044000 MOVE SETPOS TO SETPOS-2A, SETPOS-2C, SETPOS-2D, SETPOS-2E. 

272 044100 MOVE MOVHOR TO MOVHOR-2A, MOVHOR-2C, MOVHOR-2C, MOVHOR-2E. 

273 044200 MOVE HEX20 TO HEX20-2A. 

274 044300 MOVE HEXOF TO HEXOF-2C, HEXOF-2D, HEXOF-2E. 

275 044400 MOVE DTASEP TO DATA-SEP-2. 

276 044500 MOVE FFS TO LASTFF-2 


044600 

277 +044700 MOVE 1 TO MORE-DATA. 
044800 

278 044900 MOVE FORMATTED-DATA-2 TO FNC-FORMATTED-DATA. 
045000 


279 045100 MOVE 138 TO LENREC OF VARREC-0. 
280 045200 PERFORM SEND-RESPONSE. 


045300 

SAO De EE EEOC SECIS IS ESOS ISCO S IS ISCO SISOS ISTO III TO II IR 
045500* * 
045600* THE ACCOUNT INFORMATION IS SENT TO THE CONTROLLER. * 
045700* * 


0.458002 A III IOI ITO IRR ITO IK I IIR IKI TIKI II III IIASA IIIA IAI. 
045900 BUILD-FORMAT-3. 
281 046000 MOVE CORRESPONDING ACCOUNTR TO FORMATTED-DATA-3. 


* ** CORRESPONDING items for statement 281: 
* pes BAL 
* aad DLYW 
* #k DLYDEP 
* aad LIMIT1 
* *k LIMIT2 
* ek LCKDSC 
* *x* End of CORRESPONDING items for statement 281 
282 046100 MOVE WRKBAL TO WRKBAL-3. 
283 046200 MOVE TOTRSV TO TOTRSV-3. 
284 046300 MOVE 1 TO TERMINAL-MODE. 
285 046400 MOVE NEWLIN TO NEWLIN-3A, NEWLIN-3B, NEWLIN-3C, NEWLIN-3D, 
046500 NEWLIN-3E, NEWLIN-3F. 
286 046600 MOVE SETPOS TO SETPOS-3. 
287 046700 MOVE SETLIN TO SETLIN-3. 
288 046800 MOVE HEX06 TO HEX06-3 
289 046900 MOVE DTASEP TO DATA-SEP-3. 
290 047000 MOVE FFS TO LASTFF-3 
047100 
291 047200 MOVE © TO MORE-DATA. 
292 047300 MOVE FORMATTED-DATA-3 TO FNC-FORMATTED-DATA. 
047400 
293 047500 MOVE 208 TO LENREC OF VARREC-0O. 
294 047600 PERFORM SEND-RESPONSE. 


047700 
01478002 EEE IESG OSES IESG SIGS OCI III I ITI IIA 
047900* * 
©48000* RESPOND TO THE ACCOUNT INQUIRY. * 
048100* * 


0.4.8.2.0 02 RIO IOI I IOI IOI I III IOI I AIR A A Ok 

048300 SEND-RESPONSE. 

295 048400 MOVE FNC-OUTPUT-DATA TO DTAREC OF VARREC-0. 
048500 
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STMT SEQNBR -A 1 Bo .te ee 2e cee te ee dee te deeetee Dee ete Oe ee ete eee 7. IDENTFCN 
296 048600 WRITE ICFREC 


048700 FORMAT IS "VARREC" 

048800 TERMINAL IS WS-PGMDEV. 

048900 

0.490002 EE SIEGE EI ISIS SIC OCIS III II TI IIA I 
049100* + 
049200 TERMINATE PROGRAM. * 
049300* * 


0.494.002 III RIO II I IO I AIO I AIR A Ae 
049500 CLEAN-UP. 
297 049600 DROP WS-PGMDEV FROM KOOLICF. 


049700 

298 049800 CLOSE KOO1ICF 
049900 KQ01DBF 
050000 KOO1PRT. 
050100 

299 050200 STOP RUN. 
050300 


*eeee END OF SOURCE ** *** 
STMT 
x*e*ee* END OF MESSAGES ***** 
Message Summary 
Total Info(0-4) Warning (5-19) Error (20-29) Severe (30-39) Terminal (40-99) 


0 0 0 0 0 0 
Source records read... .....: 503 
Copy records read... 2.1... 2: 43 
Copy members processed ......: 3 
Sequence errors. .........: @ 
Highest severity message issued. .: 0 


LBLO901 00 Program KO01 created in library FNCLIB. 
x*x*ee*e END OF COMPILATION *** * * 
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S  COPYNAME 


S  COPYNAME 


CHG DATE 


CHG DATE 
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RPG/400 Source Program for 
Local System 


This section describes the objects needed on the 
local system to run the ILE RPG/400 CPGEN 
download finance program. See Figure E-9 on 
page E-21. 


Configuration 


This section lists the configuration commands 
used to create the synchronous data link control 
(SDLC) line, controller, and device descriptions 
used by the local system. 


CRTLINSDLC LIND(LSYSMON) RSRCNAME(LINO22) ONLINE (*NO) 
ROLE(*PRI) NRZI(*YES) 

CTLD(CSYSMON) TYPE(4702) MODEL(0) 
LINKTYPE(*SDLC) ONLINE(*NO) LINE(LSYSMON) 
STNADR(C1) 

DEVD(CPGDEV) TYPE(*FNCICF) LOCADR(0@1) 
RMTLOCNAME (CPGDEV) ONLINE(*NO) CTL(CSYSMON) 


CRTCTLFNC 


CRTDEVFNC 


Program Files 


The following files are used by the local system. 


CPGICF 
The ICF file used to send and receive 
records from the finance controller. This 
file was created by using the following 
command: 


CRTICFF FILE(FNCLIB/CPGICF) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR (CPGICF) 


The following command defines the program 
device entry: 


ADDICFDEVE FILE(FNCLIB/CPGICF) PGMDEV(PGMDEV) 
RMTLOCNAME (CPGDEV) 


An OVRICFDEVE command with the same 
parameters can also be used. 


CPGDBF 
The database file used to hold the records 
of the CPGEN file that is to be down- 
loaded. This file was created by using the 
following command: 


CRTPF FILE(FNCLIB/CPGDBF) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(CPGDBF) 
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CPGPRT 
The printer file used to format output to a 
printer. This file was created by using the 
following command: 


CRTPRTF FILE(FNCLIB/CPGPRT) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(CPGPRT) 


*NOSECLVL 


PAV MAME: oo. co se sai gies cease’ ey Se -8. “ee faq ws cote lney, cea Sa yayg eee COPGICE: 
Library name 2... 1... 1 ee eee ee ee et) NCLIB 
File: attribute: «2c 06 cod ota 8 A ets oe, CP 
Source file containing DDS ............ : QDDSSRC 
Library names aise 4 & seat 3 Wea See & Ms: At FNCLIB 
Source member containing DDS ..........+.: = CPGICF 
Source member last changed ............: 06/05/89 9:11:40 
Source listing options .......... 4... :  *SOURCE *LIST 
DDS generation severity level ...........: 20 
DDS flagging severity level ............: 400 
AUthOPity: <6 ee cee el eles ore jae a ay ee a  METBCRTAUT 
Replace: fie: sci ats. oe Bok Be Role ee a EC ORNES 
TOK Sv cay Sei" it, sated BP seh wt ay eP aaa dan Gah el wME oad 
Compiler ..........44244.4 444. 2: IBM AS/400 Data Description Processor 


Data Description Source 


SEQNBRe etek ce Led eet are oO Seka ee Sos Faretle ee Ae ketene 109s wet eats VOM ee aha tele Pewee oes 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 


[REESE OGIO ICSI IOS IOS OS TOSI TOSI IOI IOI TOI ITI III IIIS IIA 


Ax 
Ax DDS 
Ax FOR THE ICF FILE 


Ax USED IN CPGEN FILE DOWNLOAD APPLICATION PROGRAM 
Ax 


[REGO IOS ICSI OEIC SIO GIOTTO IOI TOI TOI ITI III II II IIA. 


+ Oe XO OF 


Ax 

Ax FILE LEVEL INDICATORS: 

Ax 

A 

A INDARA 

Ax 

DKK RK KI KKK RK KIRK RIK KK IKK KKK KIKI KKK IKK KI KK EI KKK KKK RIK, 
Ax RETAIL RECORD FORMATS * 
KKK KKK KKK RK KIRK KKK KIRK KKK KIKI KIKI KKK IKKE IK KIRK RIK RK IK, 
A R DATAREC 

A DATA 256A 

A R DATAEND ENDGRP 

A DATA 256A 

A R INIT ENDGRP 

A DATA2 2A 

A R TERM ENDGRP 

A INVITE 

A DATA2 2A 


*ee*e* END OF SOURCE *¥*4%* 
Expanded Source 


06/05/89 


Field 


SEQNBR:. *s:0.t65 Sols de ete eile oe dH ee ce Sees thie dhe ds te oe Gee ote ecb ct eaiied see etoee 8 Length 


1200 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2500 


Total 


0 
* CPC7301 


Figure 


INDARA 
R DATAREC 
DATA 256A B 
R DATAEND ENDGRP 
DATA 256A B 
R INIT ENDGRP 
DATA2 2A B 
R TERM ENDGRP INVITE 
DATA2 2A B 


x**x*x*e* END OF EXPANDED SOURCE 
Message Summary 


ke KKK 


Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 

00 Message... 23: File CPGICF created in library FNCLIB. 


xe x ** END OF COMPILATION 


E-6. DDS Source for ICF File CPGICF 
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ke KKK 


Buffer position 
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PALO = TAM: 5-565 secs oe perptes coepseh cay dee ok. Tau fy 8s 00, te ew, see deer 
Library name 
File attribute 
Source file containing DDS 
Library name 
Source member containing DDS 
Source member last changed 
Source listing options 
DDS generation severity level 
DDS flagging severity level 


PIEHE YPC ta 8 yy etcen ce nschata eta Wahg Seah Sen opaidnn a: evap st So ee 
AUERONI EY scene oie ese ee SO eR er eae FOS 
Replace fides 3 wk ot ap kS5 6 de See aed See Ce: oa ee 8 
TORTS” to's ahaa Gew Cel, vd AP mieiae’ @ Gon Wie ey GS eSes ew Sa 
COMPTV |: eto, ce Me, se 8 as Col Pte cence, ween gor cos fe Meuieecalter 
Data Description So 
SEQNBR: “ected etottees loo ctes cede ocetesso4eceeteas 
100 DEES IE EE IIS IE IIE II IO IE IE IO II III IE 
200 Ax 
300 Ax DDS 
400 Ax FOR THE DATABASE FILE 
500 Ax USED IN CPGEN FILE DOWNLOAD APPLICAT 
600 Ax 
700 DEE EE IE IE ICIS IE IE IE II II IE IE IO II III I 
800 Ax 
900 A R CPGREC 
1000 A CPG 80A 
xxx *e* END OF SOU 
Expanded Source 
SEQNBR: ecto LS etic vuwctes edb ecete seabed ees 
900 R CPGREC 
1000 CPG 80A B COLH 
x**x*xe*xe* END OF EXPANDE 
Message Summary 
Total Informational Warning 
(0-9) (10-19) ( 
0 0 ) 
* CPC7301 00 Message... 232 File 
x*x*x*x* END OF COM 


CPGDBF 
FNCLIB 
Physical 
QDDSSRC 
FNCLIB 
CPGDBF 
06/05/89 
*SOURCE 


9:10:57 


*LIST *NOSECLVL 


% 


DATA 
*LIBCRTAUT 
*NO 


IBM AS/400 Data Description Processor 
urce 


FOI IO IO IK I 


ION PROGRAM 06/05/89 


FOI IR IO RIOR IO 


CE *k# eee 


Field 
Doce ete Boece te eee Jeeeete..68 length 


DG('CPG') 80 
D SOURCE *** * x 


Error Severe 

20-29) (30-99) 

i) 0) 

CPGDBF created in library FNCLIB. 
ILATION ** * * * 


Figure E-7. DDS Source for Database File CPGDBF 
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Buffer position 


Out 


In 


*NOSECLVL 


PAV GLAM. on cs ce egies coe seh toy de cd. Sas typ os cde ney deo tee egos “EPGPR 
Library name 2... 1... 1 ee ee eee ee et) NCLIB 
File: attribute: «sc a-8 ek aie GG eA eke ok, Printer 
Source file containing DDS ............ : QDDSSRC 
Library name: ai 4 ga 8 Mee Sie & Ms: Siti ENGLIB 
Source member containing DDS .........2. +. : + CPGPR 
Source member last changed ............: 06/05/89 9:12:28 
Source listing options ...........4.4 4. :  *SOURCE *LIST 
DDS generation severity level ...........: 20 
DDS flagging severity level ............: 400 
AUthOPi ty: <. coo cee cee el eles oe ebay we ee eo ~METBORTAUT 
Replace: fie: sci ats. oe Bok Be Role ee a EC ORNES 
TOK Sv cay Sei" it, sated BP seh wt ay eP aaa dan Gah el wME oad 
Compiler ..........44244.4 444. 2 IBM AS/400 Data Description Processor 


Data Description Source 


SEQNBR: etek cre Lied atit arcs obs Soke Sos Faretle ee Ae ketene 109s wat eats VOM ee aha tele Me waat oes’ 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 


SEQNBR 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 


Total 


0 
* CPC7301 


Figure 


[XESS OGIO SI ICSI IOS IOS IOS TOO I TOSI TOO ITO I TOI TTI III II II IIA 


Ax 
Ax DDS 
Ax FOR THE PRINTER FILE 


Ax USED IN CPGEN FILE DOWNLOAD APPLICATION PROGARAM 
Ax 


[REESE IOS IO SI IOS IOS TOSI TOSI ICE ITO TOI ITI III II II IIA 


+ eX OF 


Ax 

KKK KKK IKK K KKK KKK KEI KKK IKK KIKI KIKI KKK IKKE IKK IK KKK KK IK, 
Ax RECORD FORMATS * 
BRR KKK KAKA KK KKK KEIR KIRK KKK KIKI KKK IK KK IK KE IK KIRK IKK RIK, 
A R ERRREC SPACEB(3) 

A 5'PROGRAM TERMINATED AB 
A 5'PROGRAM DEVICE:' SPAC 
A GMDEV 10 +1 

A 5'RECORD FORMAT: ' SPACE 
A FMTNM 8 +1 

A 5'MAJOR CODE:' SPACEB(2 
A MAJOI 2 +1 

A 5'MINOR CODE:' SPACEB(2 
A MINO! 2 +1 

A R RSPERR SPACEB(3) 

A 5'UNSUCCESSFUL OPERATIO 
A 5'TO BAD STATUS CODE.' 


xx*e*e*e END OF SOURCE *** ** 
Expanded Source 


R SPACEB(3) 
5'PROGRAM TERMINATED AB 
5'PROGRAM DEVICE:' SPAC 
PGMDEV 10A 0 21 
5'RECORD FORMAT:' SPACE! 
FMTNM 8A 0 20 
5'MAJOR CODE:' SPACEB(2 
MAJO! 2A 0 217 
5'MINOR CODE:' SPACEB(2 
MINO! 2a 0 «17 
R RSPERR SPACEB(3) 
5' UNSUCCESSFUL OPERATIO! 
5'TO BAD STATUS CODE. 
eeeee END OF EXPANDED SOURCE 


Message Summary 


NORMALLY! 
EB(2) 


B(2) 
) 
) 


N DUE ' 
SPACEB(2) 


NORMALLY 
EB(2) 


B(2) 
) 
) 


N DUE ' 
SPACEB(2) 


ke KKK 


06/05/89 


Informationa Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 

00 Message... 23? File CPGPRT created in library FNCLIB. 


xxx ** END OF COMPILATION 


E-8. DDS Source for Printer File CPGPRT 
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NENEFAROAY 


i) 
NX 


i=) 


Buffer position 


Out 


19 


21 


In 
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Program Explanation: This section 
explains the ILE RPG/400 CPGEN file download 
program example in Figure E-9 on page E-21. 
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This section of the program defines the 
database file (CPGDBF), the ICF file 
(CPGICF), and the printer file (CPGPRT) 
used in the program. 


CPGDBF is the database file that contains 
the CPGEN file to be downloaded. 


CPGICF is the ICF file that sends records 
to and receives records from the system 
monitor program on the finance controller. 


CPGPRT is the printer file that sends com- 
munications error information to a printer 
device from the CPGEN file download 
program on the AS/400 system. 


Note: The files used in this program are 
opened at the beginning of the ILE 
RPG/400 cycle. 


FEEDBK is the name of the file informa- 
tion data structure (INFDS) used with the 
CPGICF file. The FEEDBK data structure 
contains the following information: 


e¢ Record format name (FMTNM) 

e Program device name (PGMDEV) 

¢ Major/Minor return code (MAJOR, 
MINOR) 


WRKBUF is the name of the structure that 
holds records to be sent to the finance 
controller and that holds records received 
from the finance controller. 


CNSTDS is the name of the structure 
used by the program for building the initial- 
ization and termination sequences that are 
sent to the system monitor program on the 
finance controller. The initialization 
sequence tells the system monitor 
program that a CPGEN file is coming. 

The termination sequence tells the system 
monitor program that the CPGEN file 
download program on the AS/400 system 
has finished sending data. 


FILLOO is the name of the structure used 
by the program to set records to hex '00'. 
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This section explicitly acquires the 
program device (PGMDEV) used by the 
program. This program device was previ- 
ously added to the ICF file (CPGICF) by 
the ADDICFDEVE command. 


This section builds and sends the initializa- 
tion sequence to the finance controller. 


Data is read from the database file 
(CPGDBF) and sent to the finance con- 
troller until all records in the database file 
are sent (the indicator 99 is set on). 


This section of the program sends the ter- 
mination sequence to the finance con- 
troller. 


The system monitor program on the 
finance controller sends a response back 
to the termination sequence sent in J. 

If the response received is hex '0581', the 
CPGEN file download was successful and 
the indicator 95 is set; otherwise, control is 
passed to and a message is printed. 
Then the program is ended. 


This section of the program does the end- 
of-job processing. First, the session with 
the system monitor program on the 
finance controller is ended by releasing 
the finance device. Because additional 
processing is not needed in this program, 
the LR indicator is set on and all files are 
closed implicitly. Then the program ends. 


This subroutine builds the initialization and 
termination sequences sent to the finance 
controller and builds constants used 
throughout the program. 


When a response is received that indi- 
cates the records sent to the system 
monitor program on the finance controller 
were rejected, this subroutine prints a 
printer record (RSPERR) that indicates the 
CPGEN file download was not successful. 


This subroutine is automatically called 
when an exception occurs while the 
program is running. A printer record 
(ERRREC) is printed with information 
regarding the error condition. The 
*CANCL option on the ENDSR operation 
causes the program to end and all files to 
close. 


COMPIL EP le spe) are ican io eco oy tees S 
Command Options: 


IBM AS/400 RPG/400 


Program ............ 2 FNCLIB/CPGPGM 
Source file ..........32 FNCLIB/PGMSRC 
Source member ......... :  CPGPGM 
Generation options .......:  *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE 
Source listing indentation... : *NONE 
SAA flagging. ......... :  *NOFLAG 
Generation severity level ...: 9 
rint file. .......... 2:  ¥*LIBL/QSYSPRT 
Replace program ........: = ¥*YES 
arget release. ........ 3: *CURRENT 
User profile. ......... 2: ‘*USER 
Authority ........... 2 *LIBCRTAUT 
OXt 6 eee ee ew we eee ee | *SROMBRIXT 
hase trace ..........: *NO 
ntermediate text dump... .. : ¥*NONE 
Snap dump ........... 2: *NONE 
Codelistin.., 8. gle aid ce ett NONE 
gnore decimal data error > *NO 
Actual Program Source: 
Member... ........ +. : + CPGPGM 
PHOS st eas alg wds wag, Ayaan eS PGMSRC 
LADRALY.* eos ee Ny eh Rew OS FNCLIB 
Last Change ..........: 06/03/89 12:05:45 
SEQUENCE IND DO LAST 
NUMBER Pisrel gave leths oli Cea Whe vn ele vee tes ales wathiuamOcavets ee eOe wenthae Sel ene “USE NUM UPDATE 
Source Listing 
100 FCPGDBF IF E K DISK 
RECORD FORMAT(S): LIBRARY FNCLIB FILE CPGDBF. 
EXTERNAL FORMAT CPGREC RPG NAME CPGREC 
200 FCPGPRT O E 66 PRINTER 
RECORD FORMAT(S): LIBRARY FNCLIB FILE CPGPRT. 
EXTERNAL FORMAT ERRREC RPG NAME ERRREC 
EXTERNAL FORMAT RSPERR RPG NAME RSPERR 
300 FCPGICF CF E WORKSTN 
400 F KNUM 1 
500 F KINFDS FEEDBK 
600 F KINFSR FAIL 
700 =F KID PGMDEV 
BOD Le ke rE EEE EE IE IE IEE IE IE IE IEICE IE IE IF IF CIE IEE IE IS IEICE IE II III 
900 Ix * 
1000 I* DATA STRUCTURE FOR RPG ERROR/EXCEPTION RETURN CODES * 
1100 I* * 
1200 Lie ke ke ESE EE EIFS F IE IE IE IEICE IE IE IF ICICI IEE IE IOI ICICI IA II III 
RECORD FORMAT(S): LIBRARY FNCLIB FILE CPGICF. 
EXTERNAL FORMAT DATAREC RPG NAME DATAREC 
EXTERNAL FORMAT DATAEND RPG NAME DATAEND 
EXTERNAL FORMAT INIT RPG NAME INIT 
EXTERNAL FORMAT TERM RPG NAME TERM 
A000000 NPU FIELDS FOR RECORD CPGREC FILE CPGDBF FORMAT CPGREC. 
A000001 1 80 CPG 
B000000 NPU FIELDS FOR RECORD DATAREC FILE CPGICF FORMAT DATAREC. 
Bo00001 1 256 DATA 
C000000 NPU FIELDS FOR RECORD DATAEND FILE CPGICF FORMAT DATAEND. 
C000001 1 256 DATA 
DOe0000 NPU FIELDS FOR RECORD INIT FILE CPGICF FORMAT INIT. 
D000001 1 2 DATA2 
E£000000 NPU FIELDS FOR RECORD TERM FILE CPGICF FORMAT TERM. 
£000001 1 2 DATA2 
2 1300 IFEEDBK DS 
1400 I 38 45 FMTNM 
1500 I 273 282 PGMDEV 
1600 I 401 402 MAJOR 
1700 I 403 404 MINOR 
Figure E-9 (Part 1 of 6). RPG/400 Program for ICF Finance 
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PAGE 
LINE 


REE 


PROGRAM 
ID 
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1800 HRA KKK KK KK KKK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK IKARIA ARIA AEE RRR ER 

1900 I* * 

2000 I* WORK AREA * 

2100 I* * 

2200 BKK KK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK KK IKK KIKI AAAI RRR R, 
2300 IWRKBUF DS 

2400 1 256 WRKREC 

2500 1 1 DATL 

2600 2 2 DAT2 
SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER... Le eet 2ec ete e ee dee e ete ee dees ete e ee De ee ete ce GeeeeteeeeZeee* USE = NUM UPDATE LINE ID 
2700 IcNstps DS 

2800 1 2 INTCMD 

2900 1 1 BOl 

3000 2 2 B03 

3100 3. 4 TRMCMD 

3200 3 3 BOS 

3300 4 4 B88 
Ei 3400 IFILLoo DS 

3500 1 256 NULLS 

3600 1 1 BFO 

3700 1 2 BF 

3800 1 4 BF2 

3900 1 8 BF3 

4000 1 16 BF4 

4100 1 32 BF5 

4200 1 64 BF6 

4300 1 128 BF7 

4400 2 2 BS0 

4500 3. 4 BS1 

4600 5 8 BS2 

4700 9 16 BS3 

4800 17 32 BS4 

4900 33 64 BSS 

5000 65 128 BS6 

5100 129 256 BS7 


5200 Gn OE EOS SESS CIE SIS ESOS ISCO SIS TOC IS TGCS IS TOSI I TI II IE 


5300 C* START PROGRAM * 
5400 Cx * 
5500 C* FILES ARE IMPLICITLY OPENED, AND THE SYSTEM MONITOR * 
5600 C* PROGRAM DEVICE IS ACQUIRED. * 
5700 Cx * 
FBOQ CRRA KR RK KIRK KKK KIKI RIK KR KK KR KK IKK KI KKK IKK KIKI KIKI RK IK. 

Gi 5900 c 'PGMDEV' ACQ CPGICF 
6000 C MOVEL'PGMDEV' PGMDEV 10 
G1OQ Cem K KKK IK KIKI KIKI KKK IK KK IKK IKK KI KK KIKI KIKI RK IK. 
6200 Cx * 
6300 C* SET THE CONSTANTS NEEDED IN THE PROGRAM, AND SEND THE * 
6400 C* INITIALIZATION SEQUENCE TO THE FINANCE CONTROLLER. * 
6500 Cx * 
6600 ROR III II III II RIC ECE I IOI RAI RA. 

6700 C EXSR SETCON 
6800 C MOVE INTCMD — DATA2 
6900 C WRITEINI 
TO 00 ROR ROI III III II II RIOR I IOI RA IR RA 
7100 C* * 
7200 C* THE FOLLOWING ROUTINE READS RECORDS FROM THE DATA BASE FILE* 
7300 C* 'CPGDBF'. WHEN THE FILE REACHES END OF FILE, INDICATOR 99 


7400 C* IS TURNED ON. CONDITION N99 IS USED ON THE WRITE TO AVOID * 


7500 C* SENDING A BLANK RECORD. * 

7600 Cx * 

7700 GRRE BORREGO EIS S IS ISCO S ISCO SIS TOSS T GCI IO TOI II TRI III 
8 | 7800 C MOVE NULLS WRKREC 


Figure E-9 (Part 2 of 6). RPG/400 Program for ICF Finance 
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SEQUENCE 
NUMBER 
7900 
8000 
8100 
8200 
8300 
8400 
8500 
8600 
8700 
8800 
8900 
9000 
9100 
9200 
9300 
9400 
9500 
BI 9600 
9700 
9800 
9900 
10000 
10100 
10200 
10300 
10400 
10500 
10600 
10700 
10800 
10900 
11000 
11100 
11200 
11300 
11400 
11500 
11600 
11700 
11800 
11900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 


Figure 


ies edbiia teat ates CLOEE APA OOo aise tetas ee cis thes Gin Oy sina th ents Dstete site ace Fee aie * 
Cc READ CPGREC 99 

Cc MOVELCPG WRKREC 

C *IN99 DOUEQ'1' 

C READ CPGREC 99 

Cc MOVELWRKREC DATA 

Cc MOVE NULLS WRKREC 

Cc MOVELCPG WRKREC 

C N99 WRITEDATAREC 

Cc END 

Cc WRITEDATAEND 

ln EEE IE IE I IFS IE IE IE ISIS IE IE IE IF ICIS IEE IE IS IIIA IR II II I 
Cx * 
Cx THE FOLLOWING SECTION OF CODE WRITES THE TERMINATION * 
C* CODE '0588'X TO THE CONTROLLER. * 
Cx * 
Cl EEE IE IE IE II IE IE IE ISIS IE IE IE IEICE IEE IE ICI ICICI IE II II I 
Cc MOVE TRMCMD DATA2 

C WRITETERM 

(GE EE IEE IE IE IE III IE IE IE ISIS IE IE IE IEICE IE IE IS ICI IR II III 
Cx * 
C* THIS LINE READS THE RESPONSE TO THE '0588'. IF THE RESPONSE* 
C* IS '@581'X, THEN THE CONTROLLER ACCEPTS THE PREVIOUS * 
Cx RECORDS, AND THE PROGRAM IS TERMINATED. OTHERWISE, * 
Cx PRINT OUT AN APPROPRIATE MESSAGE AND TERMINATE THE * 
Cx PROGRAM. * 
Cx * 
CEE EEE IE IE II IE IE IE IE ISI IE IE IE IEICE IEE IE ICI ICICI IR II III 
Cc EAD DATAREC 98 

Cc MOVELDATA WRKREC 

Cc DAT1 COMP HEX05 95 

Cc 95DAT2 COMP HEX81 95 

Cc N95 EXSR BADRSP 

CE EEE IE IE IE IIE IE IE IEEE IE IE IF ICIS CIE IEE IE IS IIIA IR II III 
Cx * 
Cx END THIS PROGRAM BY RELEASING THE SYSTEM MONITOR DEVICE. * 
Cx * 
Cle EE ESE IE IE IE II IE IE IE IE ISIS IE IE IF ICIS IEE IE IS ICIS IA IR II III 
Cc PGMDEV REL CPGICF 

Cc MOVE '1' *INLR 

ln a EEE IE IE IE III IE IE IE ISIE CIE IE IE IF ICIS IEE IE IS ICICI IR II III 
Cx * 
C* — "SETCON" SUBROUTINE. SET CONSTANTS USED IN THIS PROGRAM. * 
Cx * 
Cle EEE IE IE III IE IE IE ISIS IE IE IE IF ICIS IE IEE ISIS III IR II III 
CSR SETCON BEGSR 

CE EEE I IE I III IE IE IE IE IEICE IE IE IEICE IEE IE IS IIIA IA II III 
Cx SET UP CONSTANTS FOR "INIT" AND "TERM" SEQUENCE. * 
Clee EEE IE IE IE ISI IE IE IE IE ISI IE IE IE IF ICICI IEE IS IS ICI IA II III 
CSR BITOF'1' B88 

CSR BITOF'1' BO5 

CSR BITOF'1' BO3 

CSR BITOF'1' Bol 

CSR BITON'04' B88 

CSR BITON'57' BO5 


IND DO 
USE NUM 
3 
Bool 
3 001 
001 
001 
001 
001 
E001 
3 
3 
3 
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LAST PAGE PROGRAM 
UPDATE LINE ID 


06/03/89 


06/03/89 
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SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER Wed Clini ESS ec Listelals Hee vino cat ole e sé Pawn athealred ¢ see teins sO eA shea, s el eee SUSE: NUM UPDATE LINE ID 
13300 CSR BITON'67' B03 


13400 CSR BITON'7' BO1 
T3500 Cx mmm K KK KKK KIKI KKK IK KK IK KEI KK IKK KI KK KIKI KKK KK IK. 
13600 Cx SET UP CONSTANTS FOR FILLOO. * 
T3700 C&R RA KR RK RK KKK KIKI KIKI KR KKK KK IKK KI I KI IR KI KKK IK KR IIR KICK. 
13800 CSR BITOF '01234567 'BFO 
13900 CSR MOVE BFO BSO 
14000 CS MOVE BF1 BS1 
14100 CSR MOVE BF2 BS2 
14200 CSR MOVE BF3 BS3 
14300 CS MOVE BF4 BS4 
14400 CS MOVE BFS BS5 
14500 CSR MOVE BF6 BS6 
14600 CS MOVE BF7 BS7 
VAT OO Ce RK RRR RRR KKK KI KKK I KKK IK KK IK KK IKK KI KKK IK KK IK KK II IK KICK. 
14800 Cx SET UP RESPONSE CONSTANT. * 
V4QOO Ce RAR RK RRR KKK KIKI KIKI KIKI KKK IK KEI KK IKK KI KK KI KK KI IKK IIR. 
15000 CS BITOF'01234567'HEXOO = 1 
15100 CS MOVE HEX00 HEXO5 =1 
15200 CSR BITON'57' HEXO5 
15300 CS MOVE HEX00 HEX81 1 
15400 CS BITON'O7' HEX81 
15500 CSR ENDSR 
V5 600 Cx mR ARR KKK RK RIK KKK KIKI KIKI KKK IK KK IKK KI KK KI KK KI KK RII RK IK 
15700 Cx * 
15800 C*  "BADRSP" SUBROUTINE. EXCEPTION HANDLER WHICH USES * 
15900 Cx A WRITE OPERATION TO A PRINTER FILE TO RECORD * 
16000 C* A RESPONSE THAT WAS NOT EXPECTED. * 
16200 Cx * 
16300 Cx mm KIKI KIKI KIKI KKK IKK KI KK KI KKK KI KIKI KIKI KK IK. 
16400 CSR BADRSP BEGSR 
16500 CSR WRITERSPERR 
16600 CSR ENDSR 
LO 700 Cx mm KR KKK RK RR RK RIK KKK KIKI KKK KKK IK KIRK IKK KIKI KK IKK RIK IK KICK 
16800 Cx * 
16900 C* "FAIL" SUBROUTINE. EXCEPTION HANDLER WHICH USES * 
17000 C* A WRITE OPERATION TO A PRINTER FILE TO RECORD * 
17100 Cx INFORMATION REGARDING AN ERROR CONDITION. * 
17200 Cx * 
17300 C&R RRA KIRK RK KKK KKK KIKI KKK I KKK IKK KI KK KI KK KK KK IKK KIKI KK IK. 
17400 CSR FAIL BEGSR 
17500 CSR WRITEERRREC 
17600 CSR ENDSR'*CANCL' 
FQQ0000 OUTPUT FIELDS FOR RECORD ERRREC FILE CPGPRT FORMAT ERRREC. 
FOQ0001 GMDEV 10 CHAR 10 
FoQ0002 FMTNM 18 CHAR 8 
F000003 MAJO! 20 CHAR 2 
FO00004 MINO! 22 CHAR 2 
GOO00000 OUTPUT FIELDS FOR RECORD RSPERR FILE CPGPRT FORMAT RSPERR. 
H000000 OUTPUT FIELDS FOR RECORD DATAREC FILE CPGICF FORMAT DATAREC. 
H000001 DATA 256 CHAR 256 
1000000 OUTPUT FIELDS FOR RECORD DATAEND FILE CPGICF FORMAT DATAEND. 
1000001 DATA 256 CHAR 256 


Figure E-9 (Part 4 of 6). RPG/400 Program for ICF Finance 
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SEQUENCE 


IND DO LAST PAGE PROGRAM 


NUMBER Mes Liki eeaeleets Peter tes stotcele winches wsO.adetsesOeeesheereds ast USE NUM UPDATE LINE ID 


J000000 OUTPUT FIELDS FOR RECORI 
J000001 
KQ00000 OUTPUT FIELDS FOR RECOR 
ko00001 
xe *e** END OF 
Additiona Di 


D INIT FILE C' 
DATA2 
D TERM FILE C' 
DATA2 
SOURCE 
agnost 


PGICF FORMAT INIT. 
2 CHAR 2 
PGICF FORMAT TERM. 
2 CHAR 2 


ke KKK 


ic Messages 


* 7086 00 RPG PROVIDES BLOCK OR UNBLOCK SUPPORT FOR FILE CPGDBF. 
* 7089 300 RPG PROVIDES SEPARATE INDICATOR AREA FOR FILE CPGICF. 
Key Field nformation 
HYSICAL LOGICAL 
FILE/RCD FIELD FIELD ATTRIBUTES 
01 CPGDBF 
FILE NOT KEYED DATA BASE FILE 
Cross Reference 
File and Record References: 
FILE/RCD DEV/RCD REFERENCES (D=DEFINED) 
01 CPGDBF DISK 100D 
CPGREC 100D AQ00000 7900 8200 
03 CPGICF WORKSTN 300D 5900 11600 
DATAEND 300D C000000 8800 1000000 
DATAREC 300D BO00000 8600 10600 H000000 
NI 300D DO00000 6900 J000000 
ERM 300D E000000 9600 Kk000000 
02 CPGPR PRINTER 200D 
ERRREC 200D 17500 F000000 
RSPER 200D 16500 G000000 
Field References: 
FIELD ATTR REFERENCES (M=MODIFIED D=DEFINED) 
*INLR A(1) 11700M 
*IN99 A(1) 8100 
BADRS BEGSR 11000 6400D 
BFO A(1) 3600D 3800M 13900 
BF1 A(2) 3700D 4000 
BF2 A(4) 3800D 4100 
BF3 A(8) 3900D 14200 
BF4 A(16) 4000D 14300 
BF5 A(32) 4100D 4400 
BF6 A(64) 4200D 4500 
BF7 A(128) 4300D 4600 
BSO A(1) 4400D 13900M 
BS1 A(2) 4500D 4000M 
BS2 A(4) 4600D 4100M 
BS3 A(8) 4700D 14200M 
BS4 A(16) 4800D 4300M 
BS5 A(32) 4900D 4400M 
BS6 A(64) 5000D 4500M 
BS7 A(128) 5100D 14600M 
Bol A(1) 2900D 3000M 13400M 
BO3 A(1) 3000D 2900M  13300M 
BOS A(1) 3200D 2800M  13200M 
B88 A(1) 3300D 2700M  13100M 
* 7031 CNSTDS DS(4) 2700D 
CPG A(80)  A000001D 8000 8500 
DATA A(256) B000001D C000001D 8300M 10700 H000001D 
1000001D 
DATA2 A(2) DQG0001D E000001D 6800M 9500M J000001D 
K000001D 
DAT1 A(1) 2500D 10800 


Figure E-9 (Part 5 of 6). 
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DAT2 A(1) 2600D 10900 
FAIL BEGSR 300 17400D 
FEEDBK DS (404) 300 1300D 
* 7031 FILLOO DS (256) 3400D 
FMTNM A(8) 1400D Fe00002D 
EX00 A(1) 15000D 15100 15300 
EX05 A(1) 10800 15100D 15200M 
EX81 A(1) 10900 15300D 15400M 
NTCMD A(2) 2800D 6800 
MAJOR A(2) 1600D FQ00003D 
MINOR A(2) 1700D FeQe004D 
NULLS A(256) 3500D 7800 8400 
PGMDEV A(10) 1500D 6000D 11600 F000001D 
SETCON BEGSR 6700 12300D 
MCMD A(2) 3100D 9500 
* 7031 WRKBUF DS (256) 2300D 
WRKREC A(256) 2400D 7800M 8000M 8300 8400M 
8500M 10700M 
"*CANCL' LITERAL 17600 
"PGMDEV ' LITERAL 5900 6000 
'01234567' LITERAL 13800 15000 
"04! LITERAL 13100 
'o7' LITERAL 15400 
“13 LITERAL 8100 11700 12700 12800 12900 
13000 
ay a LITERAL 13200 15200 
‘67! LITERAL 13300 
yt LITERAL 13400 
Indicator References: 
INDICATOR REFERENCES (M=MODIFIED D=DEFINED) 
*IN 8100 
LR 1700M 
* 7031 66 200D 
95 0800M 10900 10900M 11000 
* 7031 98 0600M 
99 7900M 8100 8200M 8600 


**x*** END OF CROSS REFERENCE ***** 
Message Summary 
* QRG7031 Severity: 00 Number: 5 


Message . . .. : The Name or indicator is not referenced. 
* QRG7086 Severity: 00 Number: 1 
Message . . . . : The RPG handles blocking function for file. 


INFDS contents updated only when blocks of data transferred. 
* QRG7089 Severity: 00 Number: 1 
Message . . . . : The RPG provides Separate-Indicator area for 
file. 
x**e*e ee END OF MESSAGE SUMMARY ** * * * 
Final Summary 
Message Count: (by Severity Number) 
TOTAL 00 10 20 30 40 50 


7 7 0 0 0 0 0 
Program Source Totals: 
Recordsi... se Soe a Be. 176 
Specifications ......: 96 
Table Records. ......: 0 
Comments ce eee eg BO 


PRM has been called. 
Program CPGPGM is placed in library FNCLIB. 00 highest Error-Severity-Code. 
xe eee END OF COMPILATION ***** 


Figure E-9 (Part 6 of 6). RPG/400 Program for ICF Finance 
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ILE C/400 Source Program for 
Local System—Prestarted Job 
Example 


This section describes the objects needed on the 
local system to run the ILE C/400 account inquiry 
finance program using a prestarted job example. 


Configuration 


Use the following configuration commands to 
create the synchronous data link control (SDLC) 
line, controller, and device descriptions used by 
the local system. 


CRTLINSDLC LIND(FNCLINE) RSRCNAME(LINO22) ONLINE (*NO) 
ROLE(*PRI) NRZI(*YES) 

CTLD(FNCCTL) TYPE(4702) MODEL(0) LINKTYPE(*SDLC) 
ONLINE(*NO) LINE(FNCLINE) STNADR(@1) 
DEVD(KQ@2DEV) TYPE(*FNCICF) LOCADR(03) 
RMTLOCNAME (KOO2DEV) ONLINE(*NO) CTL(FNCCTL) 


CRTCTLFNC 


CRTDEVFNC 


Use the following configuration commands to add 
a prestarted job to the subsystem description 
QCMN and start the subsystem, which automat- 
ically starts jobs for the prestarted job entry. 


ADDPJE SBSD(QCMN) PGM(FNCLIB/KOO2) USER(FNCUSER) 
CLS (FNCCLASS) 

STRSBS SBSD(QCMN) 

Note: The subsystem description QCMN is 

IBM-supplied and supports all communications 

jobs. 
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Program Files 


The following files are used by the local system. 


KOO2ICF 
The ICF file used to send and receive 
records from the finance controller. This 
file was created by using the following 
command: 


CRTICFF FILE(FNCLIB/KOO2ICF) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(KOO2ZICF) 


The following command defines the program 
device entry: 


ADDICFDEVE FILE(FNCLIB/KOQ2ICF) PGMDEV(PGMDEV) 
RMTLOCNAME (*REQUESTER) CMNTYPE(*FINANCE) 


An OVRICFDEVE command with the same 
parameters can also be used. 


KO02DBF 
The database file that holds the account 
records. This file was created by using 
the following command: 


CRTPF FILE(FNCLIB/KOO2DBF) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR (KO02DBF) 


KO02PRT 
The printer file used to format output to a 
printer. This file was created by using the 
following command: 


CRTPRTF FILE(FNCLIB/KOO2PRT) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR(K002PRT) 
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The DDS for the ICF file used in the account with- 
drawal application program are shown in 


Figure E-10. 
FAG NAME: 0: Pind, el ay BSE. ew Bede Se Lae Boas ae 2 KOOZICF 
Libraryonames és. ease we Be al alee ss i CENCLEB 
PITG attributes J. ete eee teh ice, else east ete, tee al ena TGP 
Source file containing DDS ............ : QDDSSRC 
Library: name: 07.6 0. wile hoe hte aoe Sa eae BE CENELIB 
Source member containing DDS ...........32 KOO2ICF 
Source member last changed ............: 09/19/90 14:00:46 
Source listing options ...........+... :  *SOURCE *LIST *NOSECLVL 
DDS generation severity level ...........: 20 
DDS flagging severity level ............: 400 
Authority... 6 1 1 ee ee ee ee ee ee ee et *LIBCRTAUT 
Replace Tales 3 ui) wet ok terete wis aaa YES 
MORES oe 5. tes inl ee BB ae Syme ear Bkivehasd corte: Women a1 enema, cool? 
COMpPIT ER okt ia te ee le ee Bs Mo ser BE ee AOS IBM AS/400 Data Description Processor 


Data Description Source 
SEQNBR: vector l eeetiec lien ates edi ccete ead ies tia De evita Oe cee teres l eee ete sa Date 


10 KKK KKK KKK KR KKK RK KI KKK IK KKK KK IK KKK KIKI KKK IK KIKI KK IK. 
20 Ax * 
30 Ax DDS * 
40 Ax FOR THE ICF FILE * 
50 Ax USED IN ACCOUNT WITHDRAWAL APPLICATION PROGRAM * 
60 Ax * 
70 KKK KKK I KKK KKK KK KK KIRK KI KKK IKK KIKI KIKI KKK IK KIRK IKK KKK RIK, 
80 Ax 

90 Ax FILE LEVEL INDICATORS: 

100 Ax 

110 A NDARA 

120 Ax 

130 KKK KKK KIKI KK KKK KEIR KK IKK KKK KIKI KIKI KKK IKKE IK KI KKK IIR RIK, 
140 Ax FINANCE RECORD FORMATS * 
150 KKK KKK KKK KKK KK KIRK IKK KKK KIKI KKK IK KK IKK IKK IKK IKK RIK, 
160 A R MSGBUF 

170 A NVITE 

180 A MSGREC 81A 09/19/90 
190 Ax 

200 A R DATABUF 

210 A NVITE 

220 A DATAREC 189A 09/19/90 
230 Ax 

240 A R EOSREC 

250 A EOS 


*ee*e* END OF SOURCE *¥*4*%*% 
Expanded Source 


Field Buffer position 
SEQNBR | Wicca ts ere ois oye ePicers ols xa ates deren, sje Pare aie arace ahsia a 3.0 wale FS aioe On sie ad tiated Mas arethave oe Length Out In 
110 NDARA 
160 R MSGBUF NVITE 
180 MSGREC 81A B 81 1 1 
200 R DATABUF NVITE 
220 DATAREC 189A B 189 1 1 
240 R EOSREC EOS 
xx*e*e*e END OF EXPANDED SOURCE ***** 
Message Summary 
Total Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 i) 0) 0 
* CPC7301 00 Message... 23? File KQO2ICF created in library FNCLIB. 


x*x*x*e*e END OF COMPILATION *** ** 


Figure E-10. DDS Source for ICF File KOO2ZICF 
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The DDS for the database file used in the account 
withdrawal application program are shown in 


Figure E-11. 
Bile: Mame: 02 ah Age ee nade Ge leg Googe! a, Reet ~KOOZDBP 
Library. ame’ ils, Boat 4 te oe oa ete a ce at CANCETB 
Fileattribute .. 66. sce ys ws ee wc Physical 
Source file containing DDS ............ : QDDSSRC 
Library name’ 94) tes ce ee ead ak aoe aes ne ENCLIB 
Source member containing DDS ...........32 KO02DBF 
Source member last changed ............: 09/20/90 16:44:37 
Source listing options ...........4. 4. 2  *SOURCE *LIST 
DDS generation severity level ...........: 20 
DDS flagging severity level ............: 400 
FiT@SEYPOre cs eutoe Geb ak A bw a Nereis bia ee *DATA 
AUTHORITY. o-ves-e? oR Soe le yarah es ee one My aed! a 8cts, AETBERTAUT 
Replace: Files. Sisce aheae Soe neta a ela deer ee OHNO 
Text Bane eaten Dts da ec kage Cra! fe Sa Mite as bn, age MAE ae 
Compa Ver a2 is, eStart Ot ard ade Nhe EAS ae cd IBM AS/400 Data Description Processor 
Data Description Source 
SEQNBR:, 5 5 ets oD. tete is SLs tag cd vwiethe sre chico tase sOvw sete’ cs Orerete ask oweetascso (Date 
10 DEE EE ISIE ISI ISIE IS ISI ICICI IE ICI ICI SISTA IOI II II IAI. 
20 Ax * 
30 Ax DDS * 
40 Ax FOR THE DATABASE FILE * 
50 Ax USED IN ACCOUNT WITHDRAWAL APPLICATION PROGRAM * 
60 Ae * 
70 DSH EE IE IEICE IS IE III IE IE ISI ICSI IS IS II ISIC TO II II IAI 
80 Ax 
90 A UNIQUE 
100 A R ACCNTINFO 
110 A ACCTNBR 10S 0 09/20/90 
120 A NAME 15 
130 A ADDRESS 20 
140 A CITYSTZIP 25 
150 A OCUP 10 
160 A BALANCE 10S 0 09/20/90 
170 A K ACCTNBR 
x*x*x*e*e END OF SOURCE *** ** 
Expanded Source 
Field Buffer position 
SEQNBR: Fade F es ea Liesis Hs ss ClsrvathsvacaSiae Sete cin sls wed He Det Bee ete eee Jeet... 8 length Out In 
90 UNIQUE 
100 R ACCNTINFO 
110 ACCTNBR 10S OB COLHDG ( 'ACCTNBR') 10 1 1 
120 NAME 15A B COLHDG('NAME') 15 ll ll 
130 ADDRESS 20A B COLHDG('ADDRESS') 20 26 26 
140 CITYSTZIP 25A B COLHDG('CITYSTZIP') 25 46 46 
150 OCUP 10A B COLHDG('OCUP') 10 71 71 
160 BALANCE 10S OB COLHDG('BALANCE') 10 81 81 
170 K ACCTNBR 
x*x*e*e*e END OF EXPANDED SOURCE *** ** 
Message Summary 
Total Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 
* CPC7301 00 Message... 2? File KOQO2DBF created in library FNCLIB. 
x**x*e*ee END OF COMPILATION ** * ** 


Figure E-11. DDS Source for Database File KOO2DBF 
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The DDS for the printer file used in the account 
withdrawal application program are shown in 


Figure E-12. 
PATE. NAME =a Pipe, aa se cay BASS wae Bede a Me bids oe eee K0O2PR 
Libraryonames 4 eh. sn atte & ten Se alae es SS FNCLIB 
PUL@ attributes 2. cc2 ey eis we toh ice, else es ael e te, Bl el Printer 
Source file containing DDS ............32 QDDSSRC 
Library: name: 4.30% 2 see eos ee eS we FNCLIB 
Source member containing DDS ...........32 KO02PR 
Source member last changed ...........4232 01/15/90 9:59:01 
Source:listing*opti ons:> 6-608. ae te CaN eK *SOURCE *LIST *NOSECLVL 
DDS generation severity level ...........32 20 
DDS flagging severity level ............32 00 
AUtHORI EY: ar ee BS BSE Se BAe eo eee 2 OS *LIBCRTAUT 
Replaces Fades awe eek wey Arete! SN Son ay ocala 8 *YES 
MORE oe 5. es inl ee BE ae Syme ear Bkivohasd corte: Women a: enema, oocet 
COMpIT ER okt ia ote ee le ee Be Ro se er BE oe AS IBM AS/400 Data Description Processor 
Data Description Source 
SEQNBR: ves cteieo ls eeetiesl ics ctes edicts Ciab eed tia co De ovietes ee Os cr ctese el svete sa8 Date 
10 DEES EIS IEI ISIE IS IIIS IE IE ISI ISI ICIS IE IE II II SIS TI IR II IA IA II 
20 Ax DDS * 
30 Ax FOR THE PRINTER FILE * 
40 Ax USED IN ACCOUNT WITHDRAWAL APPLICATION PROGRAM * 
50 Ax * 
60 DEE EE ISIS IE IE ISI IIIS IE ISI ICICI IE IE ICI I IIIT TO II II IA II 
70 Ax 
80 DEES IE IE IE I ISIS ISIE IIIS IE IE ISI ICI ICIS IE IE ICI SI II SII II II II IA II 
90 Ax RECORD FORMATS * 
100 DEE IE EEE ISI ISIE IIIS IE IE ISI ICICI IE IE ICI SI SI STI II IR IA IA II 
110 A R HEADER SPACEB(3) 
120 A 20'TRANSACTION ERROR... ' 
130 A UNDERLINE 
140 A R PRTREC SPACEB(3) 
150 A RTBU 36A 2 
x*x*x*e*e END OF SOURCE ** * ** 
Expanded Source 
Field 
SEQNBR: “i.4 Heels wast esol sth e taje Siac eeFalcies Bas te Hate wDicletathe 46 Ose naks aoe les eothine'e 8: length 
110 R HEADER SPACEB(3) 
120 20'TRANSACTION ERROR... ne 24 
130 UNDERLINE 
140 R PRTREC SPACEB(3) 
150 RTBUF 36A 0 2 36 
x**e*e*e* END OF EXPANDED SOURCE ** * * * 
Message Summary 
Total Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 0 
* CPC7301 00 Message... 22 File KOO2PRT created in library FNCLIB. 
x**e*e*e* END OF COMPILATION ** * * * 


Figure E-12. DDS Source for Printer File KOO2PRT 


Program Explanation: The following 
descriptions explain the ILE C/400 account inquiry 
program example in Figure E-13 on page E-32. 


Note: On any type of error (for example, open 
error or session error), the session ends, a 
message prints, and the program ends. 


2 
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This section of the program defines the 
structures used by the files. 


This section defines the global constants 
the program uses. 


This section defines the global variables 
the program uses. It also defines the 
common and display/ICF feedback area 
pointers, and the file pointers. 


The routines, except the main routine, are 
prototyped so the compiler knows the type 
of value returned and the type of parame- 
ters passed, if any. 


Finance Communications Programming V4R1 


Buffer position 
Out In 


The printer file is opened for output, the 
ICF file is opened for record input/output, 
and the database file is opened for record 
input. 


KO002PRT is the printer file that sends 
communication information output to a 
printer device from the account inquiry 
program on the AS/400 system. 


Note: The ICF file is opened with the 
separate indicator area option specified. 


KOO2ICF is the ICF file that sends records 
to and receives records from the On-line 
Terminal Support (OTS) application 
program running on the finance controller. 


KO02DBF is the database file that contains 
the customer account information. 


This section handles transaction requests 
until an unexpected error occurs or the job 
is ended, in which case the program also 


ends. Within the loop, steps through 
are run. 


The program device (PGMDEV) used by 
the program is explicitly acquired. 
Because this is a prestarted job, the 
acquire is suspended until a program start 
request arrives. 


Note: This program device was previ- 
ously added to the ICF file (KOO2ICF) by 
the ADDICFDEVE command. 


The parameters passed to the account 
inquiry program by the finance controller 
are obtained from the data area used for 
program initialization parameters (PIP). 
The account number indicator field and the 
account number field are the only fields 
retrieved from the PIP data area. 


Note: The PIP data area is created for 
each prestarted job. 


This section of the program checks as to 
whether an account number was received 
and whether the account number is valid 
(exists in the database file). If the answer 
to either of these checks is no, the trans- 
action error flag is set, an appropriate 
error message is set in the record to be 
returned to the requesting device, and the 
error message is issued in step Fj. 


If a transaction error is detected, an error 
message is sent to the requesting device. 


If no transaction error is detected, steps 
through are run. 


The customer information and account 
information are copied into the record that 
is to be sent to the requesting device. 


A write operation with the account inquiry 
response is sent to the program device 
that sent the inquiry request. 


Note: For performance reasons, the 
INVITE keyword is specified as part of 
DATABUF record format. For more infor- 
mation, see “Responses” on page 7-1. 


The ICF session is ended when the ICF 
record format EOSREC, which has the 
EOS (end-of-session) function specified, is 
issued. 


This section determines whether an opera- 
tion was successful by checking for a 
major return code of 00. If the operation 
was successful, a value of 0 is returned; 
otherwise, a value of 1 is returned. 


Note: Because the feedback areas are 
updated after each ICF file I/O operation, 
the succ_rc_check function first updates 
the pointers to the new feedback areas 
before determining whether the operation 
was successful. 


This section does the end-of-job pro- 
cessing. First, a printer record is printed 
with information regarding the success or 
failure of the program. If an I/O error 
occurs, the ICF session is ended by 
issuing an ICF record format (EOSREC), 
which has the EOS (end-of-session) func- 
tion specified. Files used in the program 
are closed by passing control to step fig. 
Because no additional processing is 
needed in this program, the program 
returns control to the calling environment. 


This section closes all opened files used in 
the program. If an error occurs on a close 
operation, another close is done (which is 
always successful). 
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PROGV AM: 5220's, co. So ptt tse ty Get koe2 


LEDRAPY: ped ead hoe, se FNCLIB 
Source file. ......... 2:  PGMSRC 
A DRARY ass eck, Ew loca te, FNCLIB 
Source member... ......: ~~ k002 
Text Description .......3: 
Qutput’y 2 6% Beck enters, Ue Soda k «SPRINT 
Compiler options ....... :  *NOAGR *NOEXPMAC *LOGMSG *NOSECLVL 
:  *NOSHOWINC *NOSHOWSKP »*NOXREF *USRINCPATH 
Checkout options ....... :  *NOACCURACY =*NOENUM *NOEXTERN »*NOGENERAL *NOGOTO ¥*NOINIT 
:  *NOPARM *NOPORT »*NOPPCHECK *NOPPTRACE 
Optimization ......... :  *NONE 
Debugging view ........:  *NONE 
Define names .........3 
Language level ........ 3: = *SOURCE 
Source margins: 
Left margins. 3. Se ai etAcasace 2 OD 
Right margin ........: 80 


Sequence columns: 
Lett: Column 2-3. eee ek BE 
Right Column ........32 


Message flagging level ....: 0 
Compiler messages: 
Message limit. ....... :  *NOMAX 
Message limit severity ...: 30 
Replace module object .....: ¥*YES 
User Profile ......... 3:  ¥*USER 
Authority ........... 2:  *LIBCRTAUT 
Target release ........ 3: *CURRENT 
System includes. .......:  ¥*YES 
Last change... .......: 01/24/94 15:50:58 
Source description ......: 
Compiler ........... 3: IBM ILE C/400 Compiler 


Pe satne pela naahaains leas otis aes on suthers s shea set sana es ete sais Oeis et sonal bee There eOe a eat saad swieanie ate 


1 SESE SISSIES SSIS ISOS PSI PSII ITI IA II IEE IIA a / 
2 /* */ 
3 /* This program handles account inquiry requests from a 4702 */ 
4 /* finance controller. */ 
5 /* x*/ 
6 /* NOTE: On any type of error (i.e open error, session errors...),  */ 
7 /* the session will be terminated, a message printed, and the */ 
8 /* program will end. x/ 
9 /* */ 

10 SESS SPSS S SSIS IS ISIS EIS III I ISERIES AAI] 

11 DESEO SSS E EIST ISIS EESTI SEI II I IIPS IAAI a / 

12 /* Retrieve various structures/utilities that are used in program. */ 

3 SESE ISSIR SESS S SI IIIS IIPS E PSII I IIPS I 

14 #include <stdio.h> /* Standard 1/0 header. x/ 

15 #include <stdlib.h> /* General utilities. */ 

16 #include <stddef.h> /* Standard definitions. */ 

17 #include <string.h> /* String handling utilities. */ 

18 #include <xxdtaa.h> /* Data area handling utilities. */ 

19 #include <xxfdbk.h> /* Feedback area structures. */ 

20 #include <recio.h> /* Record 1/0 routines */ 

21 SESE I ISSIR ISIE ISEB IIIA] 

22 /* Define the structure used for the data retrieved from the data */ 

23 /* area which contains the data sent by the finance controller. */ 

24 SEBS ISSO S SSSI IIIS IS SESE IIIT I III SEES AI I] 


Figure E-13 (Part 1 of 7). ILE C/400 Program 
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ONAnOEWNHE 


a3 1 | 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 


Hes oto alawmetaseel gels etna w eS ote sethiole «clean sche sled s see Ste One vet enw haw setasteeO siete tnlnie a9 siisla eters 
|struct 


char ws_type?? 
char  ctl_unit? 
char — ws_num??(_ 


(222) 5 
2(22?)s 
222); 


char audit_num??(2??); 


char tel lerno? 
char linenbr?? 
char __trans_cod 
char splfnct?? 
char resvrd??( 
char ctl_utype 
char  fld1p??( 
char _ f1d2p??( 
char f1d3p??(1 
char _ f1d4p??( 
char  f1d5p??( 
char fld6p??(1 
char f1d7p??( 
char  input_fld 
char  input_fld 
char  input_fld 
char  input_fld 

a 

a 

a 


char input_f 
char input_f 
char input_f 
} pip_data; 
SESE I SSIS OEE EEE: 
/* Define the structure 
/* the finance contro 
/* "writes" to the IC 


ROO R I IIE 


reer e rere eeteTy 


2(322)s 

(222); 

2? (322) 

(122); 

322); 

22(122)s 

22); /* Account number field indicator. */ 
22); 

”) 

ye 

289 

22)5 

beat) 

122(10??); /* Account number. */ 
222(1022); 

327(1022)s 

42? (1072); 

522(1022) 

677(1022)s 

722 (1022) 


JES HSE EIEIO III III / 


s used for the data that is to be sent to */ 
er. These structures are used when doing */ 
file. */ 


JE EERIE ACSI IIIA II IA III III II III | 
JOBE IIHS III II II IA III III III III | 


/* Structure used 
/* requesting the 
HOCH OO II 
struct 
{ 
char header1?? 
char newpage; 
char newlinel; 
char msg_buf?? 
char newline2; 
char fillerl?? 
char account_n 
char end_of_da 
char end_of_da 
char end_of_da 
char end_of_da 
} msgrec = 


to send error messages to the controller */ 
transaction. */ 
JCI SII SI IOI OI ICO ITO I IOI ITI TOI ITI I IAAI AA | 


(1672); 


(4072); 


(10??); 

um??(102?) ; 

tal; 

ta2; 

ta3; 

ta4; 

{ "000000 "5 
Ox0C, 0x15, 
0x15, 
"Account#: ", 


OxFF OxFF,OxFF,OxFF }; 


Figure E-13 (Part 2 of 7). ILE C/400 Program 
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100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 


Hie dat aia eta Liakesapedtereisin 2 oiels ote pha gd wielerett syste she: <7 Pevetein Ore srethieg, cc Onrea Ghee olcaulee Paes cOas cata s clo 9 aa sienna sie 


FESO ICSI OI IOC IOI ICO I TOSI ICAI TOI III TCI III I TI IIA I Ta a kes bc | 
/* Structure used to send the account information to the x/ 
/* controller requesting the transaction. Information that */ 
/* is sent includes: account number, customer name, address, */ 
/* occupation, and the account balance. x/ 
SOSH CCI ORI COI IOI OIC ITO ICAI TOI III TOI TTI I TI II et sites tc | 

struct 
{ 

char header1??(16??); 

char newpage; 
char newlinel; 
char fillerl??(12??); 
char account_num??(10??); 
char newline2; 
char filler2??(12??); 
char name??(15??); 
char  newline3; 
char  filler3??(12??); 
char  address??(20??); 
char newline4; 
char filler4??(12??); 

char city_state_zip??(25??); 
char newlined; 
char filler5??(12??); 
char occupation??(10??); 
char newline6; 
char filler6??(12??); 
char balance??(10??); 
char end_of_datal; 
char end_of_data2; 
char _end_of_data3; 
char end_of_data4; 


} datarec = { "000000 an 
Ox0C, 
0x15, "Account# : ", "", 
0x15, "Name ee ae 


Aaa) 
0x15, "Address : ", 5 
0x15, "City/State: ", "", 
0x15, "Occupation: ", "", 
0x15, "Balance : ", 4 
OxFF,OxFF,OxFF,OxFF }; 

[RRR II RII IK RII KIKI I IKK KI III III IKK III IKI III III III IIIA IA. 

/* Define structure used to contain the messages that can be sent */ 

/* to the finance controller. x/ 

HOSOI C IORI ICO TOI IOC I TOSI IOI TCI ICI TCI TTI TOI ITI I III II I a a a | 

struct 

char msg1??(40??); 
char msg2??(40??); 


} msg_records = { “Account number not received. me 
"Account number not found. opis 
LREREOREELEIEA ERROR OPEA EEE ROPER RE] 
/* Define structure used to write to the print file. */ 


HOCH CII CHICO TOOT OSI ICE I TOSI ICAI TCI III TOI ITI I TOI ITI I III I IAI AA a | 
struct 


char filler1??(1322); 
char major??(2??); 
char minor??(2??); 
char filler2??(1922); 
} print_rec; 


Figure E-13 (Part 3 of 7). ILE C/400 Program 
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FERRE SII IESE II IESE IIIS ICICI II TICE T ICI II TCI II TTI I I TI II I IIA A | 
/* Define the database file record structure. */ 
[RRA REAR EER TERE IEA RER RD REREDRDEARR RR IE] 
struct 

{ 

char account_num??(10??); 

char name??(15??); 

char  address??(20??); 

char city_state_zip??(25??); 

char occupation??(10??); 

char balance??(10??); 

} account_info_rec; 
[RII IK RIK RIKKI KIRK KIKI III IKI II IKI II IKI II IKI IIIA AAA. 


|/* Define constants/flags used in program. */ 
[RIKI KIKI RII IKK III III KI III IKI III III IKI II IKI IIIA AIA: 
#define ERROR 1 /* Error occurred. */ 
#define NOERROR 0 
#define NORM_END 1 /* Print normal end message. */ 
#define OPEN ERR 2 /* Print open file error message. */ 
#define ACQ_ERR 3 /* Print acquire error message. */ 
#define IO_ERR 4 /* Print I/0 error message. */ 
#define TRUE 1 /* Used in never-ending loop. */ 


#define FALSE 0 


PERI I OIE I IIIT I I TA TIT IIIIIIII I I I I II IAAI | 


|/* Declare global variables/functions. «/ 


PERRIS III III III IIIA III II ISITE II IITA III III III I I I I I II IAAI | 


size_t size; /* "size_t" is a synonym for the */ 

/* type of the value returned by */ 

/* the "sizeof" operator. */ 
_RFILE xicffptr; /* Pointer to ICF file. */ 
_RFILE xprtfptr; /* Pointer to print file. */ 
_RFILE xdbfptr; /* Pointer to database file. */ 
_XXIOFB_T *comm_fdbk; /* Pointer common I/0 feedback. */ 
_XXIOFB_DSP_ICF_T *dsp_icf_fdbk; /* Pointer display/ICF 1/0 feedback.*/ 
_RIOFB_T *db_fdbk; /* 1/0 Feedback - data base file x/ 


|int succ_rc_check(void); 


void end_job(int) ; 

void close_files(void); 

FERRER IOI IEEE ICICI EI I ICSI IIIS ITSO CT III I TTI I I TI II I IIIA | 
/* Start of mainline code. */ 
HERO R EOI ICES II ICES ICES II IEEE I ICICI ITC I TTI II TTI IA TI III I IIIA | 
main() 


{ 


int found = FALSE; /* Found account flag. */ 
char dbfkey_z??(10??); /* Database file key - zoned. */ 
char balance_z; /* Account balance - zoned. */ 
int trans_err = NOERROR; /* Transaction error indicator. */ 
_SYSindara = dsp_indic; /* Separate indicator area. */ 
_DTAA_NAME_T dtaname = /* Data area name. */ 
("*PDA um "ys 
HEIR EOI IRIE II IEEE I IEEE IIIS IISA I ITI II TTI II TI II I II IAA | 
/* Open printer, ICF, and database files. x/ 
HEFCE OI IIIS IEEE IEEE II IIIS TICE I TICE I TTI IIT III I TI III I TIAA | 
if (( prtfptr = _Ropen("FNCLIB/KOO2PRT", "ar")) == NULL) 


{ 
printf("Open failed for printer file\n"); 
exit (ERROR) ; 
} 
if (( icffptr = _Ropen("FNCLIB/KOOZICF", 
"ar+, indicators=Y")) == NULL) end_job(OPEN_ERR) ; 
if (( dbfptr = _Ropen("FNCLIB/KOO2DBF", "rr riofb=n")) 
== NULL) end_job(OPEN ERR); 


Figure E-13 (Part 4 of 7). ILE C/400 Program 
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204 FORO R RICCI IORI IS ICSI ICICI ICI TCI TOIT CIO TI III TIT II IIT II IR A ek ae | 204 
205 /* The "driver" of this program is contained in the following */ 205 
206 /* loop. In the loop, the program: x/ 206 
207 /* 1- acquires the requester device */ 207 
208 /* 2- retrieves the program initiation parameters (PIP data) */ 208 
209 /* 3- processes the transaction */ 209 
210 /* 4- ends the session x/ 210 
211 /* */ 211 
212 /* NOTE: The program will terminate if any error occurs. */ 212 
213 FORO RIC RICCI S IOI OSI ISIS ISIC ICI TOI TCI TOTO II III TIT II II TI I II A A A aA | 213 
214] 8 | while ( TRUE ) | 214 
215 { 215 
216 HOBOS III OSI OSI SITS ISI IO TOSI ICICI ICI TOI ICI TOIT I II TI I IIIA I AR aI | 216 
217 /* Explicitly acquire the session. x/ 217 
218 HOBOS IOS ICSI III SI IO ICSI ICICI ICI TOI II TOIT I II TI I II IAI AR a I | 218 
219 9 | _Racquire(icffptr, "PGMDEV  "); | 219 
220 10 if ( succ_rc_check() == ERROR) end_job(ACQ_ERR) ; 220 
221 HORS OBIS ICSI OSI SI IC ICSI TOIT OI TCI TOI II TOIT II I ITI I II II I A A IA | 221 
222 /* The PIP data that is to be retrieved from the data area */ 222 
223 /* has seven indicators which indicate which fields are */ 223 
224 /* present: x/ 224 
225 /* If field one is present, FLDIP is "1", otherwise */ 225 
226 /* At igen ne */ 226 
227 /* If field two is present, FLD2P is "2", otherwise x/ 227 
228 /* AE AS rs */ 228 
229 /* and soon... x/ 229 
230 /* The data is loaded sequentially into the available fields */ 230 
231 /* so if the operator enters fields 1, 3, 5, and 7, the data x/ 231 
232 /* will be stored in input fields 1, 2, 3, and 4. It is */ 232 
233 /* necessary to test for the presence of the fields and move */ 233 
234 /* each input field into the correct field in the program. x/ 234 
235 /* Since this program only deals with account inquiry requests, */ 235 
236 /* if an account number is not passed this program will x/ 236 
237 /* reject the transaction request. */ 237 
238 /* x/ 238 
239 /* The following code retrieves only those parts of the PIP */ 239 
240 /* data that this program uses, and rejects the transaction */ 240 
241 /* request if the account number is not among the data that is */ 241 
242 /* passed, or if the account number is not in the database file.+*/ 242 
243 [HOBOS IORI OSIRIS ISI IOI SI ICI T OSI TCI TOI II TOT II II TI I II III I A AA | 243 
244 B12 | QXXRTVDA(dtaname, 22, sizeof(pip_data.fldlp), pip_data.fldip); | 244 
245 3 QXXRTVDA(dtaname, 29, sizeof(dbfkey_z), dbfkey_z); 245 
246 4 trans_err = NOERROR; 246 
247 Bis | if (strncmp(pip_data.fldip, "1", 1) != 0) | 247 
248 248 
249 6 trans_err = ERROR; 249 
250 7 strncpy(msgrec.msg_buf, msg_records.msgl, 40); 250 
251 8 strncpy(msgrec.account_num, "N/A M10) 251 
252 252 
253 else 253 
254 254 
255 9 strncpy(account_info_rec.account_num,dbfkey_z, 10); 255 
256 db_fdbk = Rreadk(dbfptr, &account_info_rec, 256 
257 sizeof(account_info_rec), _ KEY_EQ, 257 
258 &account_info_rec.account_num, 258 
259 20 sizeof (account_info_rec.account_num)); 259 
260 21 if (db_fdbk->num_bytes > 0) 260 
261 22 trans_err = NOERROR; 261 
262 else 262 
263 { 263 
264 23 trans_err = ERROR; 264 
265 24 strncpy(msgrec.msg_buf, msg_records.msg2, 40); 265 
266 25 strncpy(msgrec.account_num, dbfkey_z, 10); 266 
267 } 267 
268 } 268 


Figure E-13 (Part 5 of 7). ILE C/400 Program 
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} 


/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 
/* 


HEIRS II ICC SII IIIS I ICICI III EITC I TICS I TICS I TI III I II A A | 
/* If there is a transaction error, then send the appropriate */ 
/* message and end the session; otherwise, process the */ 

/* transaction and send a response to the transaction 
272 
HEF ER II IRE SII IEEE I IEEE I IIIS II ICSI TICE I TTI II TI III TI Ae | 
if (trans_err == ERROR) 
{ 
_Rformat(icffptr, "MSGBUF "); 
_Rwrite(icffptr,&msgrec, sizeof (msgrec)); 
if ( succ_rc_check() == ERROR) end_job(I0_ERR); 
} 
else 
{ 
strncpy(datarec.account_num, account_info_rec.account_num, 10); 
strncpy(datarec.name, account_info_rec.name, 15); 
strncpy(datarec.address, account_info_rec.address, 20); 
strncpy(datarec.city_state_zip, 
account_info_rec.city_state_zip, 25); 
strncpy(datarec.occupation, account_info_rec.occupation, 10); 
strncpy(datarec.balance, account_info_rec.balance, 10); 
_Rformat(icffptr, "DATABUF "); 
_Rwrite(icffptr,&datarec, sizeof (datarec)); 
if ( succ_rc_check() == ERROR) end_job(I0_ERR); 
} 

_Rformat(icffptr, "EOSREC "); 

_Rwrite(icffptr,NULL, 0); 

} 


EECA E EI II III II IOI IIIA IITA TI III III I I I I I I I IIIA IK | 


*/ 
JERSE DEe Joe */ 
* INTERNAL FUNCTIONS *  x/ 
ereeere re rrees Joe — */ 
*/ 


EPICS IIIS EIS III IIIT PIII IITA II III III II I I I A TISAI | 
EEC III ISIE EI III III IIIT IATA III III III II I I I I I TI IIIA IK | 


CHECK FOR SUCCESSFUL OPERATION */ 
The following function checks whether the last operation */ 
was successful. For an operation to be successful, the major */ 
return code must be equal to '00'. If the operation is */ 
successful, a value of 0 is returned to the caller; otherwise, */ 
a value of 1 is returned. */ 


ERICEIRA III ISIE II II TAIT III III II I I II I IIIA I | 


312 Bs | succ_rc_check() 


313 
314 1 
315 
316 2 
317 
318 
319 
320 5 
321 


Bw 


comm_fdbk = _Riofbk(icffptr); 
dsp_icf_fdbk = (_XXIOFB_DSP_ICF_T *)((char *)comm_fdbk + 


comm_fdbk->file_dep_fb_offset) ; 


return(NOERROR) ; 


else 


return(ERROR) ; 


{ 
| 
| 
| 
| if (strncmp(dsp_icf_fdbk->major_ret_code, "00", 2) == 0) 
| 
| 
}} 


Figure E-13 (Part 6 of 7). ILE C/400 Program 


Appendix E. Intersystem Communications Function Finance Example Programs 


269 
270 
271 


273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 


E-37 


322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 


PWNE 


AnRWNE 


Wienera' th acers epl-g-aroratti seis Ce ee. Sitone otis, chave't orale Lia ana there ts) gO leraigattiaie eS! O's) nt, athialela/eslinve aya there 8 ON, oho arti eis oOo ore dioisie 


EECA E EIA IASI ISIE IPI II IA TAT II III III I I I I I I I III IAAI | 


/* END JOB */ 
/* The following function writes message and return code (if any) */ 
/* to a printer file, ends the session with the controller, */ 
/* closes the files used by the program and returns to the caller */ 
/* of this program. */ 


EEE SOI E II IIIA III III IIE I II TAI II III III II I I I I TISAI IS | 


|void end_job(int mtype) 


_Rformat(prtfptr, "HEADER "); 
_Rwrite(prtfptr,NULL, 0); 
_Rformat(prtfptr, "PRTREC i 
if (mtype != OPEN_ERR) 
{ 
| strncpy(print_rec.major, dsp_icf_fdbk->major_ret_code, 2); 
| strncpy(print_rec.minor, dsp_icf_fdbk->minor_ret_code, 2); 
| strncpy(print_rec.fillerl, "RETURN CODE: ", 13); 
| strncpy(print_rec.filler2, " ", 19); 
| 
| 


_Rwrite(prtfptr,&print_rec, sizeof(print_rec)); 
} 


if (mtype == NORM END) 


_Rwrite(prtfptr, "PROGRAM COMPLETED NORMALLY ", 36); 
else 
if (mtype == OPEN ERR) 
_Rwrite(prtfptr, "PROGRAM COULD NOT OPEN FILE(S) Py 30)'s 
else 


if (mtype == ACQ_ERR) 

_Rwrite(prtfptr, "PROGRAM COULD NOT ACQUIRE DEVICE M4 30) 9 
else 

_Rwrite(prtfptr,"1/0 ERROR OCCURRED ", 36); 


if ((mtype != OPEN ERR) && (mtype != ACQ_ERR)) 
{ 
_Rformat(icffptr, "EOSREC "ys 
_Rwrite(icffptr,NULL, 0); 
} 


close_files; 


if (mtype == NORM END) exit (NOERROR) ; 

else exit (ERROR); 

} 

EIS S SHO SIIE SH OS IGS EI IES I ISIS IS CE EEE I III III I EE EE / 
/* CLOSE FILES «/ 
/* The following function closes all files. */ 


HERERO SIRES IESG II IRIE IIIS III EE ATIC IIT ICAI I TTI II III A tek sek | 

|void close _files() 

{ 

if (icffptr != NULL) 
_Rclose(icffptr) ; 

if (prtfptr != NULL) 
_Rclose(prtfptr) ; 

if (dbfptr != NULL) 
_Rclose(dbfptr) ; 


} 


Figure E-13 (Part 7 of 7). ILE C/400 Program 
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Appendix F. Non-Intersystem Communications Function 


Finance Example Programs 


This appendix provides COBOL/400 and RPG/400 
example programs to demonstrate how finance 
communications is used by using the submit 
Finance Job (SBMFNCJOB) command. 


Figure F-1 shows representations of example pro- 
grams. 


COBOL/400 and RPG/400 Source 
Programs for the Local System 


This section describes the objects needed on the 
local system to run the ILE COBOL/400 and ILE 
RPG/400 account inquiry and withdrawal finance 
example programs. 


Configuration 


The following configuration commands are used to 
create the synchronous data link control (SDLC) 
line, controller, and device descriptions used by 
the local system. 


AS/400 System 


(ote e eka eee te 


Database 


File 


CRTLINSDLC LIND(FNCLINE) RSRCNAME(LINO22) ONLINE (*NO) 
ROLE(*PRI) NRZI(*YES) 

CRTCTLFNC CTLD(FNCCTL) TYPE(4702) MODEL(@) LINKTYPE(*SDLC) 
ONLINE(*NO) LINE(FNCLINE) STNADR(01) 

CRTDEVFNC DEVD(FNCDEV) TYPE(4704) LOCADR(03) ONLINE(*NO) 
CTL(FNCCTL) 


Program File 


The following files are used by the local system: 


ACCOUNT 
The database file that holds the account 
records. 


This file was created by using the following 
command: 


CRTPF FILE(FNCLIB/ACCOUNT) SRCFILE(FNCLIB/QDDSSRC) 
SRCMBR (ACCOUNT) 


Program 


Finance 
Communications 


Support 


SDLC 


4702 


Controller 


4704 


Online Device 


Terminal 


Support 


RSLS094-1 


Figure F-1. Configuration Example for Non-ICF Finance 


© Copyright IBM Corp. 1997 


The DDS used by this file is shown in Figure F-2. 


Filie mame: 3: st & Aci: wie. teow, 2 Ge. 8s acer ce tie JACCOUN 
Library: Names e.-26552- ogy eR ae ts ha ae eek BE CENGEIB 
File attribute ... 1... ee eee ee ee ee ~~) Physical 
Source file containing DDS ............ : QDDSSRC 
Library name: 424) .4, a where 8. ots Cee ek eee CENCLIB 
Source member containing DDS .......... +. :  ACCOUN 
Source member last changed ............: 05/31/89 11:05:08 
Source listing options ...........4.4 4.4:  *SOURCE *LIST *NOSECLVL 
DDS generation severity level ...........: 420 
FUTGME POY soaas-se ee wy eee scans 4 dee ven acne dae a. RDATA 
Authority... 6 1 1 ee ee ee ee eee ee ee CHANGE 
MOK Tae says stediey Gr wah a! ag ae wage by B-cet Jo) ap Me eos Lee er ak ar 8 
Compiler” 5 sce Gwe AP AM arene eee Oa ee ae Te IBM AS/400 Data Description Processor 


Data Description Source 
SEQNBR: #24 hes-es]s sche 2 ete Pees Sis insta iced ek vette. Ons cite es Orcacts sebles setes e508: (DAte 


10 KKK KKK KIKI RK KKK KKK KK IKK KKK KIKI KKK IK KIKI IK KI I KKK KICK, 
20 Ax * 
30 Ax DDS * 
40 Ax FOR THE DATABASE FILE * 
50 Ax USED IN ACCOUNT INQUIRY APPLICATION PROGRAM * 
60 Ax * 
70 DKK KKK KKK RK KKK KK IKK KIRK KKK KKK KIKI KKK KKK IK KI IK RII KK IK, 
80 Ax 

90 A UNIQUE 

100 A R ACCOUNTR 

110 A ACCTNR 8 0 

120 A NAME 21 

130 A STR1 3 

140 A STR2 8 

150 A CITY 6 

160 A ZIP 5 

170 A OCUP 21 

180 A BAL 0 2 

190 A DLYWTH 03.2 

200 A DLYDEP 0 2 

210 A LIMIT1 0 2 

220 A LIMIT2 0 2 

230 A SVCS1 0 2 

240 A SVCS2 0 2 

250 A SVRM1 0 2 

260 A SVRM2 0 2 

270 A ACTIVE 1 0 

280 A LCKDSC 38 

290 A WTHDRL 0 2 

300 A K ACCTNR 


*ee*e* END OF SOURCE ***%% 
Figure F-2 (Part 1 of 2). DDS Source for ACCOUNT File 


Expanded Source 


Field Buffer position 
SEQNBR <3. ce Ficsaile estas gel ovedt ou doe sete cyclin cabencaDee detesina Ode cs tiaeled ecaletane eo. length Out In 
90 UNIQUE 
100 R ACCOUNTR 
110 ACCTNR 8P 0B COLHDG('ACCTNR') 5 1 1 
120 NAME 21A B COLHDG (‘NAME ') 21 6 6 
130 STR1 3A B COLHDG('STR1') 3 2h 27 
140 STR2 8A B COLHDG('STR2') 18 30 30 
150 CITY 6A B COLHDG('CITY') 16 48 48 
160 ZIP 5A B COLHDG('ZIP') 5 64 64 
170 OCUP 21A B COLHDG('OCUP') 21 69 69 
180 BAL OP 2B COLHDG('TBAL') 6 90 90 
190 DLYWTH OP 2B COLHDG('DLYWTH') 6 96 96 
200 DLYDEP OP 2B COLHDG('DLYDEP') 6 102 102 
210 LIMIT1 OP 2B COLHDG('LIMIT1') 6 108 108 
220 LIMIT2 OP 2B COLHDG('LIMIT2') 6 114 114 
230 SVCS1 OP 2B COLHDG('RSVCS1') 6 120 120 
240 SVCS2 OP 2B COLHDG('RSVCS2') 6 126 126 
250 SVRM1 OP 2B COLHDG('RSVRM1') 6 132 132 
260 SVRM2 OP 2B COLHDG('RSVRM2') 6 138 138 
270 ACTIVE 1P OB COLHDG('ACTIVE') 1 144 144 
280 LCKDSC 38A B COLHDG('LCKDSC') 38 145 145 
290 WTHDRL OP 2B COLHDG( 'WTHDRL') 6 183 183 
300 K ACCTNR 
x*x*x*e*e END OF EXPANDED SOURCE ***** 
Messages 
ID Severity Number 
Message Summary 
Total Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 ) ) 0 
* CPC7301 00 Message... 23: File ACCOUNT created in library FNCLIB. 
xe ee * END OF COMPILATION ** * * * 


Figure F-2 (Part 2 of 2). DDS Source for ACCOUNT File 
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COBOL/400 Program Explanation 


This section explains the COBOL/400 account 
inquiry and withdrawal program example in 
Figure F-3 on page F-4. 


This section of the program defines the 
database file (ACCOUNT). 


ACCOUNT is the database file that con- 
tains the customer account information. 


The program opens the file to be used. 


jo S| 


The parameters passed to the account 
inquiry program by the finance controller 
are placed in a data structure. The 
account number and the deposit amount 
fields are the only fields checked in this 
example. If the account number is not 
passed by the online terminal support 
(OTS) program, a message is sent to the 
finance controller and the program is 
ended. If a withdrawal amount is passed 
by OTS, the request is a withdrawal 
request; otherwise, it is simply an account 
inquiry request. 


4 | A read operation from the database file 
(with the account number as the key) is 
done. 


5 | If the account number is not in the data- 
base file, a message is sent to the finance 
controller. If the account number is in the 
database file, control is passed to either 
{J if the OTS request is an account 
inquiry, or to if the OTS request is a 
withdrawal transaction. 


This routine sends out the account inquiry 
reply in two records. The first record con- 
tains customer information, and the 
second record contains account informa- 
tion. 


Note: Because the QFN-write (QFNWRT) 
routine sends the records to the finance 
controller, after the records have been 
sent, the length of data being sent is set to 
zero. This prevents the finance job from 
sending any additional data for this trans- 
action to the finance controller. 


This routine handles withdrawal trans- 
actions. If the account is not active, a 
message is sent to the finance controller 
and the program is ended. Otherwise, 
control is passed to [EJ (to process the 
withdrawal transaction). 


This routine determines whether there are 
sufficient funds to satisfy the withdrawal 
request. If not, the withdrawal request is 
handled as an inquiry request, and a 
message stating that sufficient funds are 
not available is included with the inquiry 
request response. If sufficient funds exist 
to satisfy the withdrawal request, control is 
passed to J. 


This routine updates the database file to 
reflect the withdrawal request, and sends 
the updated account information to the 
finance controller by using the QENWRT 
routine. 


This routine is called to build and send the 
error message to the finance controller. 


Note: The routine QFNWAT is not used 
to send the error message. Because the 
send depth is not zero, the finance job 
sends the error message automatically to 
the finance controller when the program 
ends. 


This routine is called to build and send the 
customer information to the finance con- 
troller. 


This routine is called to build and send the 
account information to the finance con- 
troller. 


This routine is called to build and send the 
account information to the finance con- 
troller when the transaction is a withdrawal 
request. 
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program is ended. 


Program 
Library 
Source file 
Library 
Source member 
Generation severity level 
Text ‘description’ 
Source listing options 
Generation options 
Message limit: 
Number of messages 
Message limit severity 
Print file 
Library 
FIPS flagging 
SAA flagging 
Flagging severity 
Replace program 
Target release 
User profile 
Authority 
Compiler 


STMT SEQNBR -A 1 B..+....2....4....3 0006 


1 000010 PROCESS APOST MAP 
2 00020 IDENTIFICATION DIVISION. 


The database file is closed and the 


OTSCBL1 
FNCLIB 
PGMSRC 
FNCLIB 
OTSCBL1 
29 
*BLANK 


09/18/90 15:0 


*NOMAX 
29 
QSYSPRT 

*LIBL 
*NOFIPS *NOSEG *NODEB *NO 
*NOFLAG 


*YES 

*CURRENT 

*USER 

*LIBCRTAUT 

IBM AS/400 COBOL/400 

thie 'te dAweceie Peyere'n Dossier aioe 


2:12 


OBSOLETE 


-6....4....7..IDENTFCN S COPYNAME 


* 


* 
* 


BRARY FNCLIB ACCOUNTR 
ACCOUNTR 
ACCOUNTR 
ACCOUNTR 
ACCOUNTR 
ACCOUNTR 
ACCOUNTR 
ACCOUNTR 


TYPE ALTSEQ 
SIGNED NO 


COMP-3. 


000030 

3 000040 PROGRAM-ID. OTSCBL1. 
000050 
00006 2B BEES COS SSO S SEES SISSIES CIOS ISCO IS TOSI TE CTOSI I IO TOSI TIT I IR III IK 
000070* 
000080* PROGRAM TO HANDLE ACCOUNT INQUIRY AND WITHDRAWAL * 
000090* AS/400 FINANCE SUPPORT 
000100* 
00.0.1 02 aE EEE ESOS ISOS SOS S IESE ECOG ISCO SIS TOSI IIT O ISI ITI II TRI II III 
000120 

4 000130 ENVIRONMENT DIVISION. 
000140 

5 000150 CONFIGURATION SECTION. 

6 000160 SOURCE-COMPUTER. IBM-AS400. 

7 000170 OBJECT-COMPUTER. IBM-AS400. 
000180 

8 000190 INPUT-OUTPUT SECTION. 

9 000200 FILE-CONTROL. 
000210 

10 000220 SELECT ACCOUN 

11 000230 ASSIGN TO DATABASE-ACCOUNT 

12 000240 ORGANIZATION IS INDEXED 

13 000250 ACCESS MODE IS RANDOM 

14 000260 RECORD KEY IS EXTERNALLY-DESCRIBED-KEY. 

15 000270 DATA DIVISION. 
000280 

16 000290 FILE SECTION. 
000300 

17. 000310 FD ACCOUN 

18 000320 LABEL RECORDS ARE STANDARD. 

19 000330 01 ACCOUNT-REC. 

20 000340 COPY DDS-ACCOUNTR-I-0 OF ACCOUNT. 
+000001* 1-0 FORMAT:ACCOUNTR FROM FILE ACCOUNT OF LI 
+000002* 
+000003*THE KEY DEFINITIONS FOR RECORD FORMAT ACCOUNTR 
+000004* NUMBER NAME RETRIEVAL 
+000005* 000 ACCTNR ASCENDING 

21 +000006 05 ACCOUNTR. 

22 +000007 06 ACCTNR PIC $9(8) 

23 +000008 06 NAME PIC X(21). 

24 +000009 06 STR1 PIC X(3). 


ACCOUNTR 


CHG DATE 


Figure F-3 (Part 1 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 
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Finance Communications Programming V4R1 


25 +000010 06 STR2 
26 +000011 06 CITY 
27 +000012 06 ZIP 
28 +000013 06 OCU 
29 +000014 06 TBAL 
30 +000015 06 DLYW 
31 +000016 06 DLYD 
32 +000017 06 LIM 
33 +000018 06 LIM 
34 +000019 06 RSVC: 
35 +000020 06 RSVC: 
36 +000021 06 RSV 
STMT SEQNBR -A 1 B..+....2....4....3....4. 0004000. 
37 +000022 06 RSV 
38 +000023 06 ACT 
39 +000024 06 LCKD: 
40 +000025 06 WTHD! 
41 00350 WORKING-STORAGE SECTION. 
000360 

42 000370 01 FILLER. 

43 000380 05 FFFFFF 
44 000390 05 FILLER 
45 000400 10) FILL 
46 000410 10 FFS 


RL 


REDEFINES FFFFFF. 
ER PIC X. 
PIC XXX. 


wuvVvV VV VV VU 


wuvy 


PIC 9(8) COMP-4 VALUE 


AAANtADAAAAAAAAAADA 


x(18). 
X(16). 
X(5). 
x(21). 
$9(8)V9(2) 
$9(8)V9(2) 
$9(8)V9(2) 
$9(8)V9(2) 
$9(8)V9(2) 
$9(8)V9(2) 
$9(8)V9(2) 
$9(8)V9(2) 


5 Pcie 


$9(8)V9(2) 
S9(1) 
X(38). 
$9(8)V9(2) 


16777215. 


ACCOUN 
ACCOUN 
ACCOUN 
ACCOUN 
COMP-3. ACCOUN 
COMP-3. ACCOUN 
COMP-3. ACCOUN 
COMP-3. ACCOUNTR 
COMP-3. ACCOUN 
COMP-3. ACCOUN 
COMP-3. ACCOUNTR 
COMP-3. ACCOUN 
+6....4+....7..IDENTFCN S COPYNAME CHG DATE 
COMP-3. ACCOUN 
COMP-3. ACCOUN 
ACCOUN 
COMP-3. ACCOUN 


0004.20 BEEBE COS ISCO SECO SISSIES ISOS ISCO ISTO IE TOSI I IG TOSI TI TRI II III IK 


0 THE AS/400 


* 


0004.0 De EE EEE COS ISCO S SCO S SISSIES CIOS ISOS TECTOSI IE TO SII IO TOI TI TRI IR IIA IK 


000430* FORMAT OF THE DATA SENT BY OTS 

000450 
47 000460 01 OTS-INPUT-DATA. 
48 000470 10 OTS-CTL-ITEMS. 
49 000480 15 WSTYPE Cc 
50 000490 15 CTLUNIT PIC 
51 000500 15 WSNO PIC 
52 000510 15 AUDTNO PIC 
53 000520 15 ELLERNO Cc 
54 000530 15 LINENBR PIC 
55 000540 15 NCDE PIC 
56 000550 15 SPLFNCT Cc 
57 000560 15 RESVRD PIC 
58 000570 15 CTLUTYPE PIC 
59 000580 10 OTS-DATA-AREA. 
60 000590 15 FLD1P Cc 
61 000600 15 FLD2P PIC 
62 000610 15 FLD3P Cc 
63 000620 15 FLD4P Cc 
64 000630 15 FLD5P PIC 
65 000640 15 FLD6P PIC 
66 000650 15 FLD7P Cc 
67 000660 15 NPUT-FIELD Cc 
68 000670 


000690* 


FORMAT OF THE DA 


Xx 
x 
x 
xX. 
xX. 
Xx 
Xx 
x 


(10) OCCURS 7 TIMES 


INDEXED BY FLD. 


OOO BBO x x x kK KKK KKK RK KKK KKK KIKI RIK KK KKK KK IK KK IKK KI KK KIKI KIKI KK I KK IK KIRK. 


A SENT BY THE AS/400 TO OTS 


* 


OOO 7 OQ x x x kK KKK KK KKK KK KKK KK IKK KICK KK KKK KKK KI KK KI KK KI KK KIKI KKK IKK RIKKI IK. 


69 000710 01 
70 000720 
71 000730 
72 000740 
73 000750 
74 000760 
75 000770 
76 000780 
77 000790 
78 000800 
79 000810 
80 000820 
81 000830 
82 000840 
83 000850 


OTS-OUTPUT-DATA. 


05 


OTS-CONTROL. 
10 OTS-MODE 
10 OTS-RSV 
10 MOREDT 
10 RSPDS 
10 DRSPF 
10 RSPMS 
10 MRSPF 
10 RSPJP 
10 JPRSPF 
10 JPPARM 
10 RSPPS 
10 PPRSPF 
10 PSPARM 


) 
QAAaananaaaanAAAAAa 
x <>< KOK KK KK KOKO 


VALU 
XXX VALU 
VALU 
VALU 
VALU 
VALU 
VALU 
VALU 
VALU 
VALU 
VALU 
VALU 
VALU 


ANNNNNUNNNANUNUNYN 


- - - +--+ ee ee HO -e 


Figure F-3 (Part 2 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 
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STMT 
84 


85 
86 
87 
88 
89 
90 


91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
01 
102 
103 
04 
05 
06 
107 
08 
09 
110 
11 
12 
13 
114 
15 
16 
117 
18 
19 


120 
121 
122 
123 
124 


SEQNBR -A 1 B..+....2....4....3... 


000860 05 OTS-FORMATTED 


00087 02 REE III IE 


000880* DATA FORMAT FOR ERROR 
000890* ERRORS HANDLED Al 
000900* 


QOO9 10% x mK K AKA K KARR AKA K KEKE RE 
000920 01 FORMATTED-DATA-1. 
000930 05 NEW-PAGE-1 
000940 05 ~=TEXT-1 
000950 05  ACCTNR 
000960 05  DATA-SEP-1 
000970 05 ~LASTFF-1 
000980 
QOO99O Kx ee KKK AKA K KAKA K REAR RRR RE 
001000* DATA FORMAT FOR FIRST 
QO10 10% xR K KKK K KARR KR KARR KERK 
001020 
001030 01 FORMATTED- 
001040 05  NEW-PAGE-2 
001050 05  SETPOS-2A 
001060 05 MOVHOR-2A 
0 


DATA-2. 


001070 05 EX20-2A 
001080 05 DATE 
001090 05 NEWLIN-2B 
001100 05 FILLE 
001110 05  ACCTN 
001120 05 FILLER 
001130 05 = NAME 
001140 05 NEWLIN-2C 


001150 05  SETPOS-2C 
001160 05 MOVHOR-2C 
001170 05 EXOF-2C 
001180 05 STR 
001190 05 = STR2 
001200 05 NEWLIN-2D 
001210 05  SETPOS-2D 
001220 05 MOVHOR-2D 
001230 05 HEXOF-2D 
001240 05 CITY 
001250 05 NEWLIN-2E 
001260 05  SETPOS-2E 
001270 05 MOVHOR-2E 
001280 05 HEXOF-2E 
001290 05 OCU 
001300 05  DATA-SEP-2 


001310 05  ~LASTFF-2 


00.13 202 EES EOS III I 
001330* DATA FORMAT FOR SECON 
00.1340 ER EES IS III 
001350 
001360 01 FORMATTED-DATA-3. 


001370 05  SETPOS-3 
001380 05 SETLIN-3 
001390 05  HEX06-3 
001400 05 FILLER 


ee Ae cetece Docc ete cesOseeetesee7seIDENTFCN S  COPYNAME 
-DATA PIC X(240). 

eeeer er ete tere tetra str erst etreretetraretetrd) 

MESSAGE DISPLAY. * 

RE . . . NO ACCOUNT ENTERED OR * 

INVALID ACCOUNT ENTERED x 


FI I IOI TOI IOI OR ICR IRR TOR RIOR I OK IIR IRR TOK IIR I KIRK. 


(30). 
ZZZZZZZ. 


wuyvwy 
aAaA9000 


FI II IO TOI IOI II OR FOR TOR RIOR IR IR IRR TOK RIOR I RIK. 


JALF OF VALID INQUIRY DISPLAY. * 


FI II TOI IO IOI ICR FOR TOR RIOR IK IR IRR TOR IIR I KIRK. 


vuUvyU 


U 
ARAAAAAAAAMAAAMAAAMAAAANAAAAAAAADA 
< >< >< >< >< 


2Z/ZZ/Z2. 
x. 
X(5) VALUE 'ACC#:'. 
72222229. 

x. 
x(21). 


oe 
x(21). 
x. 
XXX. 

sheiioeerieeddeeeieebiideci bine inbiiebiiibikinbiieses 


D HALF OF VALID INQUIRY DISPLAY. * 


FI IR IO TORIC I OR IR IR TOR RIOR IK IR IRR TOK IIR I KIRK. 


p 


O° 


IC X. 
PIC X. 
PIC X. 
IC X(5) VALUE ‘BAL :'. 


CHG DATE 


Figure F-3 (Part 3 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 
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STMT 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
142 
43 
44 
45 
46 
47 
48 


49 
150 
151 
52 
153 
54 
155 
56 
57 
158 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
172 
73 
74 
75 
76 


SEQNBR -A 1 B..+....2....4....3... 


abe Ae ct ee Dee tee Bee. te ee 7. IDENTFCN =S = COPYNAME 
ZZ,2ZZZ,ZZZ.99-. 


001410 05 BAL Cc 

001420 05 FILLE C X(5). 

001430 05 FILLER C X(10) VALUE 'TOT.RSRVD:'. 
001440 05 NEWLIN-3A CX. 

001450 05 FILLE C X(5) VALUE 'DEP :'. 
001460 05  DLYDEP C ZZ,ZZZ,ZZZ.99. 

001470 05 FILLER C X(3). 

001480 05 OTRSV-3 C ZZ,ZZZ,ZZZ.99-. 

001490 05 NEWLIN-3B CX. 

001500 05 FILLER C X(5) VALUE 'WTH :'. 
001510 05 = DLYW C ZZ,ZZZ,ZZZ.99. 

001520 05 NEWLIN-3C CX. 

001530 05 FILLE C X(5) VALUE 'LMT1:'. 
001540 05 LIM C ZZ,ZZZ,ZZZ.99. 

001550 05 NEWLIN-3D CX. 

001560 05 FILLE C X(5) VALUE 'LMT2:'. 
001570 05 ~=LIMIT2 C ZZ,ZZZ,ZZZ.99. 

001580 05 NEWLIN-3E CX. 

001590 05 FILLE C X(5) VALUE 'W/B :'. 
001600 05  WRKBAL-3 C ZZ,ZZZ,ZZZ.99. 

001610 05 NEWLIN-3F CX. 

001620 05 ~LCKDSC C X(38). 

001630 05  DATA-SEP-3 CX. 

001640 05 ~LASTFF-3 C XXX. 

00.165 Dee EE EB ESOS ESOS SFOS SISSIES CIOS ISCO SISOS IS TOSI IC TOIT TI TI II TAI 
001660* DATA FORMAT FOR VALID WITHDRAWAL DISPLAY * 
00.167 (2a BE EES ESOS ISOS SCO S SISSIES CIOS ISOS IS TOSI TE TOSI II TTI IIT II II IIA IR 
001680 01 FORMATTED-DATA-4. 

001690 05 NEWPAG-4 CX. 

001700 05  SETPOS-4A CX. 

001710 05 MOVHOR-4A CX. 

001720 05  HEX20-4A CX. 

001730 05  DATE-4 C 22/22/22. 

001740 05 NEWLIN-4B CX. 

001750 05 FILLER C X(5) VALUE 'ACC#:'. 
001760 05  ACCTNR C ZZZZZZZ9. 

001770 05 FILLE CX. 

001780 05 NAME C X(21). 

001790 05 NEWLIN-4C CX. 

001800 05  SETPOS-4C CX. 

001810 05 MOVHOR-4C CX. 

001820 05 EXOF-4C CX. 

001830 05 OCU C X(21). 

001840 05 NEWLIN-4D CX. 

001850 05 FILLE C X(10) VALUE ‘AMOUNT :'. 
001860 05 AMOUNT-4 C ZZ,ZZZ,ZZZ.99. 

001870 05 NEWLIN-4E CX. 

001880 05 NEWLIN-4F CX. 

001890 05 FILLER C X(10) VALUE 'BALANCE : '. 
001900 05  BALOUT-4 C ZZ,ZZZ,ZZZ.99-. 

001910 05 NEWLIN-4G CX. 

001920 05 FILLER C X(10) VALUE 'WORK LIMIT’. 
001930 05  WRKBAL-4 C ZZ,ZZZ,ZZZ,99-. 

001940 05  NEWLIN-4H CX. 

001950 05 NEWLIN-41 CX. 


CHG DATE 


Figure F-3 (Part 4 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 
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STMT 
177 
178 
179 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 
90 
91 
192 
93 
94 
195 
96 
97 
98 
199 
200 
201 
202 
203 
204 
205 


Figure F-3 (Part 5 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 
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SEQNBR -A 1 B..+....2....4....3... 


p 
p 


ated. 
C X(20). 
CX. 

C XXX. 


«t....7..IDENTFCN S  COPYNAME 


QO 199 Q x x KK KAKA KK KKK KKK KK KIKI KIKI KKK IKK KI KK KI KK IIR KI KK KI KKK KKK KEI KK IIR. 


E HEX VALUES NEEDED IN THE 
L CHARACTERS TO THE 4700 


* 


* 


QO 2020 x ke KKK KKK KKK KKK KKK KK IK KK IK KK KKK KK IKK IKK KI KK KIKI KIKI KK IK KEIR KIRK. 


001960 05 EXT-4 
001970 05  DATA-SEP-4A 
001980 05 ~LASTFF-4 
002000* DATA AREA TO DEFINE TI! 
002010* PROGRAM TO SEND CONTRO 
002030 

002040 01 DUMMY1. 

002050* 05 EXOC 
002060* 05 EX15 
002070 06 = =BIN1 
002080* 05 EX08 
002090* 05 EX34 
002100 06 =BIN2 
002110* 05 EX04 
002120* 05 EXFF 
002130 06 ~=BIN3 
002140* 05 EX02 
002150* 05 EX12 
002160 06 = BIN4 
002170* 05 EXOD 
002180* 05 EX25 
002190 06 BINS 
002200* 05 EXOF 
002210* 05 EX20 
002220 06 BIN6 
002230* 05 EXOA 
002240* 05 EX06 
002250 06 = BIN7 
002260* 05  DUMMYOO 
002270* 05 LINENBR-HEX 
002280 06 BIN-LINENBR 


p 


999 COM 
999 COM 


999 COM 


999 COM 
999 COM 


x 
Xx 
9 
Xx 
xX 
9 
Xx 
x 
9 
x 
xX. 
9999 COM 
x 
x 
9 
Xx 
x 
9 
x 
XxX. 
9999 COM 
x 


QAaeen0nnnnanannaanaaaAAAAAAAOD 


xX. 
C 9999 COMI 


p-4 


-4, 


VALUE IS 3093. 
VALUE IS 2100. 
VALUE IS 1279. 
VALUE IS 530. 
VALUE IS 3365. 
VALUE IS 3872. 
VALUE IS 2566. 


QO 22.90 x x KKK KKK KKK KKK KK KK KIKI KIKI KKK IK KK IKK IKK KI IK KIKI KIKI KIKI KK RIK KIA K. 


002300* 


REDEFINES AREA TO GIV 


E THE HEX CONTROL COI 


DES MEANINGFUL NAMES 


* 


O23 1 Qe KKK KKK KKK KKK KKK KIKI KIKI KKK IKK KI KK I KKK IKK KIKI KIKI KIKI KK EIR KIRK. 


002320 
002330 01 
002340 
002350 
002360 
002370 
002380 
002390 
002400 
002410 
002420 
002430 
002440 
002450 
002460 
002470 
002480 
002490 


DUMMY2 

05 NEWPAG 
05 NEWLIN 
05 MOVHOR 
05  SETPOS 
05 SETLIN 
05  DTASEP 
05 EX02 
05 EX12 
05 EXOD 
05 EX25 
05 EXOF 
05 EX20 
05 EXOA 
05 EX06 
05  DUMMYOO 
05 ~LINENBR-HEX 


p 
p 


QAe2a00nannanaaAaAAAA 
>< >< >< >< OK >< OOK OK OOK OK OOK OKO COOK 


CX. 


REDEFINES DUMMY1. 


QO 25 OQ x kK KKK KAKI RK KK RK KK KIKI RIK IK KK IK KK IK KI IK IKI KK IK KK IK IK KI KK RIKKI IK. 


Finance Communications Programming V4R1 


STMT 


206 
207 


208 
209 
210 
211 
212 


213 
214 


215 
216 
217 


218 
219 
220 
221 
222 
223 
224 


225 
226 
227 
228 
229 


230 


231 


SEQNBR -A 1 Bi.te. Qe cee tee eee ete ee ete Fee ete 6....4....7..IDENTFCN S COPYNAME CHG DATE 


002510* THIS IS THE 4700 CONTROL BYTE PASSED AS A PARAMETER TO * 


002520*  QFNWRT. IT IS SET TO INDICATE THAT TRANSACTION DATA FOLLOWS. * 
QO25 3 x x KKK RAK KK KIRK KKK KKK KIKI RIK KK KK KK KKK KI KK KI KK KIKI KIKI KIKI KK RIK KEI IK. 
002540 

002550 01 CONTROL-BYTE. 

002560 05 DATA-TYPE PIC X VALUE '0'. 

00257 02 EEE SESE IES SSIS GEIS CII ICICI ICI II III I III III ISI IIA 
002580* THESE ARE THE MESSAGES USED BY THE PROGRAM * 
00259 G2 RESIS FEISS ISSO SSIS IGSI ICSC SIC ICICI CII ITI I III III IIA IIA A 
002600 

002610 01 MESSAGES. 

002620 05 MSG1 PIC X(30) VALUE 'NO ACCOUNT NR. ENTERED’. 

002630 05 4 MSG2 PIC X(30) VALUE 'ACCOUNT NR. NOT FOUND’. 

002640 05 MSG3 PIC X(30) VALUE ‘ACCOUNT NO LONGER ACTIVE’. 

002650 05 MSG4 PIC X(30) VALUE ‘INSUFFICIENT FUNDS AVAILABLE’. 

002660 

002670 01 MSG-TABLE REDEFINES MESSAGES. 

002680 05 MSG PIC X(30) OCCURS 4 TIMES. 

002690 


002700 01 ACCOUNT-STATUS PIC X. 


002710 88 VALID-ACCOUNT VALUE IS '1'. 

002720 88  INVALID-ACCOUNT VALUE IS ' '. 

002730 

002740 

002750 01 EDATE PIC 999999. 

002760 61 ACCTNO PIC $9(8). 

002770 61 AMOUNT PIC 9(11)V99 COMP 

002780 01 AMOUNT-IN PIC 9(10). 

002790 01 WRKBAL PIC 9(8)V99 COMP-3. 

002800 01 TOTRSV PIC 9(8)V99 COMP-3. 

002810 01 TOTAVL PIC 9(8)V99 COMP-3. 

QO28 20 x xm KKK KKK KKK KKK KKK KK KKK KIKI KKK IKK KIRK IKK KI KK KIKI KIKI KK IK KEI KK RII K. 
002830* THESE ARE THE PARAMETERS PASSED TO THE PROGRAM BY THE * 
002840* FINANCE SUPPORT FACILITY. * 


QO 285 Ox x x ke KKK KKK AK KK KKK KKK KIKI KIKI KKK IK KIRK IK KK IKK KIKI KIKI KKK IKK IK KIRK. 


002860 LINKAGE SECTION. 


002870 01 WSID PIC X(10). 

002880 61 SNDLEN PIC $9(10)V9(5) USAGE IS COMP. 
002890 01 DATA-PARM PIC X(256). 

002900 PROCEDURE DIVISION USING WSID, SNDLEN, DATA-PARM. 
002910 


002920 INITIALIZE-PROGRAM. 


002930 OPEN I-O0 ACCOUNT. 

002940 ACCEPT EDATE FROM DATE. 

002950 

0029 60s arr SEE ESI SS SESS CCI SG CISC ICI RR IIR Re 
002970* 


002980* THE OTS DATA COMES INTO THE PROGRAM WITH UP TO SEVEN FIELDS. 
002990* OTS PROVIDES SEVEN FLAGS INDICATING WHETHER THE FIELDS ARE PRESENT. 
003000* IF FIELD ONE IS PRESENT FLDIP IS "1", OTHERWISE IT IS " " 

003010* TWO IS PRESENT FLD2P IS "2", OTHERWISE IT IS " '" 

003020* AND SOON... 

003030* THE DATA IS LOADED SEQUENTIALLY INTO THE AVAILABLE FIELDS 

003040* SO IF THE OPERATOR ENTERS FIELDS 1, 3, 5, AND 7 

003050* THE DATA WILL BE STORED IN INPUT FIELDS 1, 2, 3, AND 4. 


He FH OH HH OK 


Figure F-3 (Part 6 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 


Appendix F. Non-ICF Finance Example Programs 


F-9 


STMT SEQNBR -A 1 Bo .t. ee 2. cto deceit See ete Oe... ee 7. IDENTFCN =S COPYNAME 


246 
247 


Bi 248 
Bi250 


251 
252 
253 


254 


003060* IT IS NECESSARY TO TEST FOR THE PRESENCE OF THE FIELDS AND MOVE * 
003070* EACH INPUT FIELD INTO THE CORRECT FIELD IN THE PROGRAM. * 
003080* * 
003090* * 
003100* TO PROCESS THE TRANSACTION - FIRST CHECK THE ACCOUNT NUMBER * 
003110* TO SEE WHETHER IT WAS ENTERED. IF NO ACCOUNT NUMBER WAS ENTERED, * 
003120* SEND AN ERROR MESSAGE BACK TO THE OPERATOR. * 
003130* * 
003 14 Q x RAK RK KIRK KKK KKK KIKI KIKI KKK IK KK IK KI KK KI KK KIKI KIKI KIKI KK RIK KIRK. 
003150 

003160 MOVE DATA-PARM TO OTS-INPUT-DATA. 

003170 SET FLD TO 1. 

003180 

003190 F FLDIP = '1' 

003200 HEN 

003210 MOVE INPUT-FIELD(FLD) TO ACCTNO 

003220 SET FLD TO 2 

003230 ELSE 

003240 MOVE MSG(1) TO TEXT-1 

003250 PERFORM BUILD-FORMAT-1 

003260 PERFORM CLEAN-UP. 

003270 

003280 F FLD2P = '2!' 

003290 HEN 

003300 MOVE INPUT-FIELD(FLD) TO AMOUNT-IN 

003310 MOVE AMOUNT-IN TO AMOUNT 

003320 COMPUTE AMOUNT = AMOUNT / 100 

003340 ELSE 

003350 MOVE ZEROS TO AMOUNT. 

003360 

003370 ERFORM PROCESS-TRANSACTION. 

003380 

QO 339 Q x x x KKK KK RK KKK KK KKK KK IK KK IK KK KKK KK IK KI KKK IKK KIKI KIKI KIKI KK RIKKI IK. 
003400* BEGIN PROCESSING THE TRANSACTION - 

003410* A READ FROM THE DATABASE FILE IS DONE USING THE ACCOUNT 

003420* NUMBER AS THE KEY. IF THE READ WAS SUCCESSFUL, PERFORM 

003430* AN ACCOUNT INQUIRY OR A WITHDRAWAL TRANSACTION (DEPENDENT 


003440* ON WHETHER A WITHDRAWAL AMOUNT WAS PASSED); OTHERWISE, SEND 
003450* A MESSAGE TO THE FINANCE CONTROLLER STATING THAT THE ACCOUNT 
003460* NUMBER WAS NOT FOUND. 

O34 7 Ox mK KKK RK KI KKK KKK KK KIKI KIKI KKK IK KIRK IKK KI KK KIKI KKK KIA KK RIK KEIR. 
003480 PROCESS-TRANSACTION. 

003490 SET VALID-ACCOUNT TO TRUE. 

003500 MOVE ACCTNO TO ACCTNR OF ACCOUNT-REC. 


He HF 


003510 EAD ACCOUNT INVALID KEY SET INVALID-ACCOUNT TO TRUE. 
003520 

003530 F VALID-ACCOUNT 

003540 HEN 

003550 F AMOUNT > 0 

003560 HEN 

003570 PERFORM ATTEMPT-WITHDRAWAL 
003580 ELSE 

003590 PERFORM VALID-INQUIRY 
003600 ELSE 

003610 MOVE MSG(2) TO TEXT-1 


CHG DATE 


09/18/90 
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STMT SEQNBR -A 1 Beet. 2e ce ete cede eee tee bee e teen Dee e tens Bee eeteee eZ. IDENTFCN S COPYNAME CHG DATE 


255 


256 


260 
261 


262 


263 


003620 ERFORM BUILD-FORMAT-1. 

003630 

0036.4 ne BEES ESOS ISOS EEOC SISSIES CIOS ISCO ISTO IE TOSI IS TO TOSI TTI II III IK 
003650* * 


003660* ONCE THE PROCESSING IS COMPLETE, AND THE PROGRAM IS ENDED, THE FINANCE* 
003670* JOB WILL SEND THE DATA IN DATA-PARM BACK TO THE REQUESTING WORK 
003680* STATION IF SNDLEN IS GREATER THAN 0. IF SNDLEN IS 0, THE FINANCE JOB 
003690* WILL SIMPLY SEND AN INVITE TO THE WORK STATION TO ALLOW THE OPERATOR 
003700* TO INPUT THE NEXT TRANSACTION. 

003710* 
0037 20 EE EES ECORI EOS SOCIO S IESE ISCO SISOS IS TOSI ITO II ITT II TIT II IIA IK 
003730 
003740 PERFORM CLEAN-UP. 

003750 

003760 

003770 

0.037 802A ER EES ESOS ISSO S SEES IESG ISIS CIO SISOS ISTIC IE TO II III TI III II IIA IR 
003790* 

003800*THE PROCEDURE TO DO A VALID INQUIRY SENDS OUT THE DISPLAY IN TWO 
003810* RECORDS. 

003820* THE OTS-MODE IS SET TO 1. THIS PUTS THE 4704 DISPLAY INTO 

003830* LARGE SCREEN MODE WHEREBY 1920 CHARACTERS ARE DISPLAYED, THEREBY 
003840* ALLOWING MORE INFORMATION TO BE DISPLAYED. THE FIRST RECORD HAS THE 
003850* BASIC CUSTOMER INFORMATION ACCOUNT, NAME, AND ADDRESS. THE SECOND 
003860* HAS THE BALANCE INFORMATION. BOTH SCREENS ARE SENT USING THE 
003870* "QFNWRT". 

003880* 
00389 OE BEE ESOS ISCO S SOS OS IS SIS ISCO SISOS ISTIC IE TESTI TO TOSI TI TIT IR III IR 
003900 
003910 VALID-INQUIRY. 

003920 PERFORM BUILD-FORMAT-2. 

003930 CALL 'QFNWRT' USING WSID, SNDLEN, DATA-PARM, DATA-TYPE. 
003940 COMPUTE WRKBAL = TBAL OF ACCOUNT-REC 

003950 - DLYWTH OF ACCOUNT-REC 


x * Oe OF 


He FF HH HO 


003960 + DLYDEP OF ACCOUNT-REC 
003970 + LIMIT1 OF ACCOUNT-REC 
003980 + LIMIT2 OF ACCOUNT-REC. 
003990 


004000 COMPUTE TOTRSV = RSVCS1 + RSVCS2 + RSVRM1 + RSVRM2. 
004010 PERFORM BUILD-FORMAT-3. 
004020 
004030 CALL 'QFNWRT' USING WSID, SNDLEN, DATA-PARM, DATA-TYPE. 
004040 
010.405. 02 ERE ESE SIE ISIS GIES ISIC II CCCI II CII SII III ITI IIA 
004060* x 
004070* SET SNDLEN BACK TO 0 SO THAT THE FINANCE JOB WILL NOT SEND ANY MORE + 


004080* DATA FOR THIS TRANSACTION TO THE FINANCE FACILITY * 
004090* * 
O41 OQ Xk KKK KKK RK KKK KKK KIKI RIK KK KK IK KIRK KI IKI KK KI KK KI KKK KIKI KK IK. 
004110 

004120 COMPUTE SNDLEN = 0. 

004130 

010.414 Der SI SSIS GSI OCS CISC ICI III II III I III ITI IIA 
004150* x 
004160* BEFORE PERFORMING A WITHDRAWAL, MAKE SURE THE ACCOUNT IS STILL * 
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STMT SEQNBR -A 1 B..+....2....4... 


268 


269 
270 


271 


272 
273 


274 


275 


276 
277 
278 
279 


NOT, PERFORM AN INQUIRY INSTEAD AND DISPLAY A * 
ERATOR INDICATING THE ACCOUNT IS NO LONGER ACTIVE. * 


* 


004200 EERE ES ESOS ISSO S EOS OSES ISSO SI ISCO ISTIC II CTO SII TTI II TRI II ISI IK 


TO LCKDSC OF ACCOUNT-REC 
D- INQUIRY 


T-WITHDRAWAL. 


004300 REE ES ESOS ISSO ESCO SOS CIES ISSO SISOS ISTIC ISTO II IO TOSI II TRI IR IIA IK 


A WITHDRAWAL, MAKE SURE THE ACCOUNT HAS SUFFICIENT 
S NOT, PERFORM AN INQUIRY INSTEAD AND DISPLAY A 
ERATOR INDICATING THERE ARE NOT SUFFICIENT FUNDS 

L. 


He * HOF 


0.04.37 Gn REESE ESOS ISCO S SCO S OSCE SSSI OS ISOS IS TOC IE TOT ITI IIT II II IIA IR 


= TBAL OF ACCOUNT-REC 
H OF ACCOUNT-REC 
EP OF ACCOUNT-REC 
1 OF ACCOUNT-REC 
2 OF ACCOUNT-REC. 


= RSVCS1 + RSVCS2 + RSVRM1 + RSVRM2. 
= WRKBAL - TOTRSV. 


AVL 


0 LCKDSC OF ACCOUNT-REC 
D- INQUIRY 


D-WITHDRAWAL. 


00.4.5 6 Oe EE ESOS COS SESE IS SSIS SISOS ISTO ISTO III TO TOI II TRI IR ISAT 


* 


DO A VALID WITHDRAWAL SENDS OUT ONE RECORD. * 


* 


004.600 REESE ESOS SEES SOS IS SSSI SI IECIO SIE TOC ISTO SIS TOIT II TRI II IRI IK 


ADD AMOUNT TO WTHDRL OF ACCOUNT-REC, 


DLYWTH OF ACCOUNT-REC. 


T FROM TBAL OF ACCOUNT-REC. 
FORMAT-4. 
USING WSID, SNDLEN, DATA-PARM, DATA-TYPE. 
T-REC. 


004170* ACTIVE. IF IT IS 
004180* MESSAGE TO THE OP 
004190* 

004210 

004220 ATTEMPT-WITHDRAWAL. 
004230 IF ACTIVE > 0 
004240 THEN 

004250 MOVE MSG(3) 
004260 PERFORM VAL 
004270 ELSE 

004280 PERFORM STAR 
004290 

004310* 

004320* BEFORE PERFORMING 
004330* FUNDS. IF IT DOE 
004340* MESSAGE TO THE OP 
004350* FOR THE WITHDRAWA 
004360* 

004380 

004390 START-WITHDRAWAL. 
004400 COMPUTE WRKBAL 
004410 - DLYW 
004420 + DLYD 
004430 + LIMI 
004440 + LIMI 
004450 

004460 COMPUTE TOTRSV 
004470 COMPUTE TOTAVL 
004480 

004490 IF AMOUNT > TO 
004500 THEN 

004510 MOVE MSG(4) 
004520 PERFORM VALI 
004530 ELSE 

004540 PERFORM VALI 
004550 

004570* 

004580* THE PROCEDURE TO 
004590* 

004610 

004620 VALID-WITHDRAWAL. 
004630 

004640 

004650 SUBTRACT AMOUN 
004660 PERFORM BUILD- 
004670 CALL 'QFNWRT' 
004680 REWRITE ACCOUN 
004690 


00.47 OO BREE COS SCO S SOS OSCE SIS ISOS ISCO ISTIC IE TO SII TOT TI TRI IR III IR 


SET SNDLEN BACK TO @ SO THAT THE FINANCE JOB WILL NOT SEND ANY MORE * 


004710* 


ecto dec e tee Dee eet 6... ete. 667..IDENTFCN =S  COPYNAME 


CHG DATE 
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STMT SEQNBR -A 1 Bo.te cc 2e cet ee dec ete ec Ae cc cte ee Deceeteee cOoee 


280 


281 
282 
283 
284 
285 


291 
292 
293 
294 
295 
296 
297 
298 
299 
300 


301 


004720* 


DATA FOR THIS TRANSACTION TO THE FINANCE FACILITY 


ot....7..IDENTFCN S  COPYNAME 


* 


0.047 302 EERE E SCOR ISSO S SFOS S IESE ISCO SISOS ISTIC ISTO III TO TOSI TI TI I IR IAI 


004740 
004750 
004760 


COMPUTE SNDLEN = 0. 


0047 7 02 EEE EE ESOS ISCO S SOS SISSIES CIOS ISCO ISTO ITO II TTI II TSI II IIA IK 


004780* 
004790* 
004800* 
004810* 
004820* 


AN ERROR MESSAGE WAS SENT TO THE FINANCE CONTROLLER. 
WILL BE WRITTEN AUTOMATICALLY BY THE FINANCE JOB UPON 
RETURN FROM THIS PROGRAM. 


THE MESSAGE 


oe * Oe OF 


00483 02 SEE EEE EGOS ISCO S SOCIO EIE SSS CIO SISOS ISTO ISTO SII IO TOSI TIT I IR TRI IR 


* 


* 


* 


004840 BUILD-FORMAT-1. 
004850 MOVE ACCTNO TO ACCTNR OF FORMATTED-DATA-1. 
004860 MOVE @ TO OTS-MODE. 
004870 MOVE NEWPAG TO NEW-PAGE-1. 
004880 MOVE DTASEP TO DATA-SEP-1. 
004890 MOVE FFS TO LASTFF-1 
004900 
0.0.49 1 Qe ere EE IE IE IE IE IFS IE IE IE IEICE IEE IE IF IFS CIS IEE IE IS IEICE IE ICI ICI III IR I I 
004920* SET MORE DATA FLAG TO 0 - THIS IS A COMPLETE RECORD - 
004930* AND SET THE SEND LENGTH OF THE FORMATTED DATA + 16. 
0.0.4.9.4 Qe ere EE EE IE IE ICICI IE IE ISIE SSIS IE IE IF ICIS CISIEE IS IS IEICE IE IE II III IR I I 
004950 
004960 MOVE © TO MOREDT. 
004970 MOVE FORMATTED-DATA-1 TO OTS-FORMATTED-DATA. 
004980 MOVE OTS-OUTPUT-DATA TO DATA-PARM. 
004990 COMPUTE SNDLEN = 59. 
005000 
005010 BUILD-FORMAT-2. 
005020 MOVE CORRESPONDING ACCOUNTR TO FORMATTED-DATA-2. 
* ** CORRESPONDING items for statement 290: 
* ek ACCTNR 
* ek NAME 
* ak STR 
* we STR2 
* ee CITY 
* ek OCUP 
* ** End of CORRESPONDING items for statement 290 
005030 MOVE EDATE TO DATE-2. 
005040 MOVE 1 TO OTS-MODE. 
005050 MOVE NEWPAG TO NEW-PAGE-2. 
005060 MOVE NEWLIN TO NEWLIN-2B, NEWLIN-2C, NEWLIN-2D, NEWLIN-2E. 
005070 MOVE SETPOS TO SETPOS-2A, SETPOS-2C, SETPOS-2D, SETPOS-2E. 
005080 MOVE MOVHOR TO MOVHOR-2A, MOVHOR-2C, MOVHOR-2C, MOVHOR-2E. 
005090 MOVE HEX20 TO HEX20-2A. 
005100 MOVE HEXOF TO HEXOF-2C, HEXOF-2D, HEXOF-2E. 
005110 MOVE DTASEP TO DATA-SEP-2. 
005120 MOVE FFS TO LASTFF-2 
005130 
0.05.4 Gee ere EE EE IE IE ICI IE IE IE IEICE IE IE IE IFSC IEE IE IS IEICE IE IE ICI II SII IR I I 
005150* SET THE SEND LENGTH TO LENGTH OF THE FORMATTED DATA + 16. 
0.05.16 G2 ere EE EE IE IE IFES IE ISIE ICIS IEE IE IEICE IEE IE IS IEICE IE ICI II IIIT I I 
005170 
005180 MOVE © TO MOREDT. 


CHG DATE 


Figure F-3 (Part 10 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 


Appendix F. Non-ICF Finance Example Programs 
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STMT SEQNBR -A 1 Bo.te cs 2e cet Sec c eter ede ee ete ee Deceetos 
302 005190 MOVE FORMATTED-DATA-2 TO OTS-FORMATTED-DATA. 
303 005200 MOVE OTS-OUTPUT-DATA TO DATA-PARM. 

304 005210 COMPUTE SNDLEN = 138. 
005220 
005230 BUILD-FORMAT-3. 
305 005240 MOVE CORRESPONDING ACCOUNTR TO FORMATTED-DATA-3. 


-6....4....7..IDENTFCN S COPYNAME CHG DATE 


* ** CORRESPONDING items for statement 305: 

* ee BAL 

* *k DLYWT! 

* #k DLYDEP 

* ad LIMIT1 

* *k LIMIT2 

* ek LCKDSC 

* ** End of CORRESPONDING items for statement 305 


306 005250 MOVE WRKBAL TO WRKBAL-3. 
307 005260 MOVE TOTRSV TO TOTRSV-3. 
1 
N 


308 005270 MOVE 1 TO OTS-MODE. 

309 005280 MOVE NEWLIN TO NEWLIN-3A, NEWLIN-3B, NEWLIN-3C, NEWLIN-3D, 
005290 NEWLIN-3E, NEWLIN-3F. 

310 005300 MOVE SETPOS TO SETPOS-3. 

311 005310 MOVE SETLIN TO SETLIN-3. 

312 005320 MOVE HEX06 TO HEX06-3 

313 005330 MOVE DTASEP TO DATA-SEP-3. 

314 005340 MOVE FFS TO LASTFF-3 


005350 
O53 OQ x x KKK KR RAK KKK KK IK IK IK KR KK IK KK IKK IKK KI KKK IK KK IK IK KIRK RIK KEI IK. 
005370* SET MORE DATA FLAG TO @ - THIS TRANSACTION IS COMPLETE NOW - * 
005380* AND SET THE SEND LENGTH TO LENGTH OF THE FORMATTED DATA + 16. * 
O53 QQ x x mK KARR KK KKK KK KKK KIKI KIKI KKK KK KK IKK IKK II KK KI KK KI KKK KIRK IK KI IK 
005400 


315 005410 MOVE © TO MOREDT. 
316 005420 MOVE FORMATTED-DATA-3 TO OTS-FORMATTED-DATA. 
317 005430 MOVE OTS-OUTPUT-DATA TO DATA-PARM. 
318 005440 COMPUTE SNDLEN = 208. 
005450 
005460 BUILD-FORMAT-4. 
319 005470 MOVE CORRESPONDING ACCOUNTR TO FORMATTED-DATA-4. 
** CORRESPONDING items for statement 319: 
ek ACCTNR 
** NAME 
iad ocuP 
** End of CORRESPONDING items for statement 319 
320 005480 MOVE EDATE TO DATE-4. 
321 005490 MOVE AMOUNT TO AMOUNT-4. 
322 005500 MOVE WRKBAL TO WRKBAL-4. 
323 005510 MOVE TBAL OF ACCOUNT-REC TO BALOUT-4. 
324 005520 COMPUTE BIN-LINENBR = LINENBR + 1. 
325 005530 IF BIN-LINENBR > 18 
326 005540 COMPUTE BIN-LINENBR = 1. 
327 005550 MOVE @ TO OTS-MODE. 
328 005560 MOVE NEWPAG TO NEWPAG-4. 
329 005570 MOVE NEWLIN TO NEWLIN-4B, NEWLIN-4C, NEWLIN-4D, NEWLIN-4E, 
005580 NEWLIN-4F, NEWLIN-4G, NEWLIN-4H, NEWLIN-41. 
330 005590 MOVE SETPOS TO SETPOS-4A, SETPOS-4C. 
331 005600 MOVE MOVHOR TO MOVHOR-4A, MOVHOR-4C. 
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STMT 
332 
333 
334 
335 
336 
337 
338 
339 


340 


341 


STMT 
17 


19 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 


SEQNBR: <AU TB shoe's SP asia te cee Sas woth oe. o3 4 eve wo Bere ves oceate ss Desc 


«+....7..IDENTFCN S COPYNAME CHG DATE 


ATTRIBUTES 

DEVICE DATABASE, ORGANIZATION INDEXED, 
ACCESS RANDOM , BLOCK CONTAINS 188 
CHARACTERS, RECORD CONTAINS 188 
CHARACTERS, LABEL RECORDS STANDARD 


VALUE 
REDEFINES .DO0Q68F8 


005610 MOVE DTASEP TO DATA-SEP-4A. 
005620 MOVE HEXOF TO HEXOF-4C. 
005630 MOVE HEX20 TO HEX20-4A. 
005640 MOVE FFS TO LASTFF-4 
005650 MOVE @ TO MOREDT. 
005660 MOVE FORMATTED-DATA-4 TO OTS-FORMATTED-DATA. 
005670 MOVE OTS-OUTPUT-DATA TO DATA-PARM. 
005680 COMPUTE SNDLEN = 190. 
005690 
0057 002 EERE IEEE FE ISIS SIGE CIS CISC ICCC II I III III IIA IIA. 
005710* * 
005720* TERMINATE PROGRAM. * 
005730* * 
0057 4 Oe ERE EIS ISIE IEICE IFES CII ISIC I CCITT III III III IIA 
005750 CLEAN-UP. 
005760 
005770 CLOSE ACCOUNT. 
005780 
005790 STOP RUN. 
005800 

*eee*e END OF SOURCE *****% 
LVL SOURCE NAME SECTION DISP LENGTH TYPE  I-NAME 
FD ACCOUNT FS .FO1 
01 ACCOUNT-REC FS 90000000 188 GROUP .DOO5DEE 
02 ACCOUNTR FS 90000000 188 GROUP .D005F40 
03 ACCTNR FS 90000000 5 PACKED .DOO5FA8 
03 NAME FS 90000005 21 AN .D006020 
03 STR FS 90000026 3. AN .D006084 
03 STR2 FS 90000029 18 AN .D0060E8 
03. CITY FS 90000047 16 AN .D00614C 
03 ZIP FS 90000063 5 AN .D0061B0 
03 OCU FS 90000068 21 AN .D006214 
03 TBAL FS 90000089 6 PACKED .D006278 
03 DLYWT FS 90000095 6 PACKED .D0062F2 
03 DLYDEP FS 90000101 6 PACKED .D00636E 
03 LIMIT FS 00000107 6 PACKED .D0063EA 
03 LIMIT2 FS 90000113 6 PACKED .D006466 
03 RSVCS FS 90000119 6 PACKED .D006548 
03 RSVCS2 FS 90000125 6 PACKED .D0065C4 
03 RSVRM FS 90000131 6 PACKED .D006640 
03 RSVRM2 FS 0000137 6 PACKED .D0066BC 
03 ACTIVE FS 90000143 1 PACKED .D006738 
03 LCKDSC FS 90000144 38 AN .D0067B0 
03 WTHDRL FS 90000182 6 PACKED .D006816 
01 FILLE WS 90000000 4 GROUP .D006892 
02 FFFFFF WS 90000000 4 BINARY .D0068F8 
02 FILLE WS 90000000 4 GROUP .D006988 
03 FILLE WS 90000000 1 AN .D0069E6 
03 FFS WS 90000001 3. AN .D006A44 
01 OTS-INPUT-DATA WS 90000000 98 GROUP .DO06AA8 
02 OTS-CTL-ITEMS WS 90000000 21 GROUP .D006B16 
03 WSTYPE WS 90000000 2 AN .D006B84 
03 CTLUNIT WS 90000002 2 AN .DOO6BEA 
03 WSNO WS 90000004 2 AN .D006C52 
03 AUDTNO WS 90000006 2 AN .DO06CB6 
03 TELLERNO WS 00000008 3 ZONED .DO06DIC 
03 LINENBR WS 90000011 2 ZONED .D006D94 
03 TRNCDE WS 00000013 3 AN .DOO6EOA 
03 SPLFNCT WS 90000016 1 AN .D006E70 
03 RESVRD WS 00000017 3. AN .DOQ6ED8 
03 CTLUTYPE WS 90000020 1 AN .DOO6F3E 
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59 02 OTS-DATA-AREA WS 00000021 77 GROUP .DOO6FA6 
60 03 FLDIP WS 00000021 AN -D007014 
61 03 FLD2P WS 90000022 AN -D00707A 
62 03 FLD3P WS 00000023 AN -D0070E0 
63 03 FLD4P WS 90000024 AN -D007146 
64 03 FLD5SP WS 00000025 AN -D0071AC 
65 03 FLD6P WS 00000026 AN -D007212 
66 03 FLD7P WS 00000027 AN -D007278 
67 03 INPUT-FIELD WS 00000028 10 AN -D0072DE DIMENSION(7) 
68 IX FLD -D00735C 
69 @1 OTS-OUTPUT-DATA WS 00000000 256 GROUP .D0073C0 
70 02 OTS-CONTROL WS 00000000 16 GROUP .D007430 
71 03 OTS-MODE WS 00000000 ZONED .D00749C VALUE 
STMT LVL SOURCE NAME SECTION DISP LENGTH TYPE  I-NAME ATTRIBUTES 
72 03 OTS-RSV WS 00000001 4 AN -D007548 VALUE 
73° 03 MOREDT WS 00000005 ZONED .DO0075C6 VALUE 
74 03  RSPDS WS 00000006 AN -DOO764E VALUE 
75 03 DRSPF WS 00000007 AN -D0076C8 VALUE 
76 03 RSPMS WS 00000008 AN -D007742 VALUE 
77° 03 MRSPF WS 00000009 AN -D0077BC VALUE 
78 03 RSPJP WS 00000010 AN -D007836 VALUE 
79 03 JPRSPF WS 00000011 AN -D0078BO VALUE 
80 03 JPPARM WS 00000012 AN -D00792A VALUE 
81 03 RSPPS WS 00000013 AN -DOO79A4 VALUE 
82 03 PPRSPF WS 090000014 AN -DOO7A1E VALUE 
83 03 PSPARM WS 00000015 AN -DOO7A98 VALUE 
84 02 OTS-FORMATTED-DATA WS 00000016 240 AN -D007B12 
85 01 FORMATTED-DATA-1 WS 00000000 43 GROUP .D007B84 
86 02 NEW-PAGE-1 WS 00000000 AN -DO007BF4 
87 02 TEXT- WS 00000001 30 AN -DOO7C5E 
88 02 ACCTN WS 00000031 8 NE -DOO7CC4 
89 02 DATA-SEP-1 WS 00000039 AN -D007D36 
90 02 LASTFF-1 WS 00000040 3 AN -D007DA0 
91 @1 FORMATTED-DATA-2 WS 00000000 122 GROUP .D007E08 
92 @2 NEW-PAGE-2 WS 00000000 AN -D007E78 
93 @2 SETPOS-2A WS 00000001 AN -DOO7EE2 
94 @2 MOVHOR-2A WS 90000002 AN -DOO7F4C 
95 @2 HEX20-2A WS 00000003 AN -D007FB6 
96 02 DATE-2 WS 90000004 8 NE -DOO801E 
97 02 NEWLIN-2B WS 00000012 AN -D008098 
98 02 FILLE WS 00000013 5 AN -D008102 VALUE 
99 @2 ACCTN WS 00000018 8 NE -D008178 
00 02 FILLE! WS 00000026 AN -DOO81EA 
01 02 NAME WS 00000027 21 AN -D008248 
102 02 NEWLIN-2C WS 00000048 AN -D0082A6 
03 02 SETPOS-2C WS 00000049 AN -D008310 
04 02 MOVHOR-2C WS 00000050 AN -D00837A 
05 @2 HEXOF-2C WS 00000051 AN -DO083E4 
106 02 STRI WS 00000052 3 AN -D00844C 
07 02 STR2 WS 00000055 18 AN -DOO84AA 
08 @2 NEWLIN-2D WS 00000073 AN -D008548 
109 02 SETPOS-2D WS 00000074 AN -D0085B2 
10 02 MOVHOR-2D WS 00000075 AN -D00861C 
11 02 HEXOF-2D WS 00000076 AN -D008686 
12 @2 CITY WS 00000077 16 AN -DOO86EE 
13° 02 NEWLIN-2E WS 00000093 AN -D00874C 
14 02 SETPOS-2E WS 00000094 AN -D0087B6 
15 @2 MOVHOR-2E WS 00000095 AN -D008820 
116 02 HEXOF-2E WS 00000096 AN -D00888A 
17 02 OCU WS 00000097 21 AN -DOO88F2 
18 02 DATA-SEP-2 WS 00000118 AN -D008950 
19 02 LASTFF-2 WS 00000119 3 AN -D0089BA 
120 01 FORMATTED-DATA-3 WS 00000000 192 GROUP .DOO8A22 
21 02 SETPOS-3 WS 00000000 AN - DOO8A92 
22 02 SETLIN-3 WS 00000001 AN - DOO8AFA 
123 02 HEX06-3 WS 00000002 AN -DOO8B62 
24 @2 FILLER WS 00000003 5 AN -DOO8BCA VALUE 
25 02 TBAL WS 00000008 14 NE -D008C40 
26 @2 FILLER WS 90000022 5 AN .DOO8CB8 
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n 


27 
28 
29 
130 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
142 
43 
44 
45 
46 
47 
48 
49 
50 
151 
52 
53 
54 
155 
56 
57 
158 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
172 
73 
74 
75 
76 
77 
78 
79 
80 
81 


MT LVL 


02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
01 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
01 
02 


Figure 


WRKBAL-3 
NEWLIN-3F 
LCKDSC 
DATA-SEP-3 
LASTFF-3 
FORMATTED-DATA-4 
NEWPAG-4 
SETPOS-4A 
MOVHOR-4A 
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SECTION 


WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 
WS 


DISP 
00000027 
00000037 
00000038 
00000043 
00000056 
00000059 
00000073 
00000074 
00000079 
00000092 
00000093 
00000098 
00000111 
00000112 
00000117 
00000130 
00000131 
00000136 
00000149 
00000150 
00000188 
00000189 
00000000 
00000000 
00000001 
00000002 
00000003 
00000004 
00000012 
00000013 
00000018 
00000026 
00000027 
00000048 
00000049 
00000050 
00000051 
00000052 
00000073 
00000074 
00000084 
00000097 
00000098 
00000099 
00000109 
00000123 
00000124 
00000134 
00000148 
00000149 
00000150 
00000170 
00000171 
00000000 
00000000 


174 


a 


TYPE 
AN 
AN 
AN 


=z 
1 


Z2>zaz>ma22zm22m22m22m2F 


‘OUP 


PSrPrry>arrrrorrrrz2zaSrrzaerrzerrzrr=zas, 


2m22m2222 


GROUP 
BINARY 


I-NAME 

-D008D16 
-D008D90 
- DOO8DFA 
-D008E70 
- DOO8EE8 
-DOO8F46 
-DOO8FC8 
-D009032 
-D0090A8 
-D009120 
-D00918A 
-D009200 
-D009278 
-DOO9ZE2 
-D009358 
-D0093D0 
-D00943A 
-D0094B0 
-D009548 
-D0095B2 
-D009610 
-D00967A 
-D0096E2 
-D009752 
-D0097BA 
-D009824 
-D00988E 
-DO098F6 
-D009970 
-DOO99DA 
-DOO9A50 
-DOO9AC2 
-D009B20 
-DOO9B7E 
-DOO9BE8 
-DOO9C52 
- DOO9CBC 
-D009D24 
-D009D82 
- DOO9DEC 
-DOO9E64 
- DOOIEE6 
-DOO9F50 
- DOO9FBA 
- D00A034 
- DOOAOB6 
-DOOA120 
-DOOA19A 
-DOOA2Z1C 
- D00A286 
- DOOAZFO 
-DO0A356 
-DOOA3C2 
-DOOA42A 
-DO0A490 


ATTRIBUTES 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
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STMT LVL SOURCE NAME SECTION DISP LENGTH TYPE  I-NAME ATTRIBUTES 
82 02 BIN2 WS 00000002 2 BINARY .DOOA548 VALUE 
83 02 BIN3 WS 00000004 2 BINARY .DOOA5D2 VALUE 
84 02 BIN4 WS 00000006 2 BINARY .DOOA65C VALUE 
85 02 BINS WS 00000008 2 BINARY .DOOA6E6 VALUE 
86 02 BIN6 WS 00000010 2 BINARY .DO0A770 VALUE 
87 02 BIN7 WS 00000012 2 BINARY .DOOA7FA VALUE 
88 02 BIN-LINENBR WS 00000014 2 BINARY .DOOA884 
89 01 DUMMY2 WS 00000000 16 GROUP .DOOA900 REDEFINES .DOOA42A 
90 02 NEWPAG WS 00000000 AN -DOOA966 
91 02 NEWLIN WS 00000001 AN -DOOAICC 
92 02 MOVHOR WS 00000002 AN -DOOAA32 
93 02 SETPOS WS 00000003 AN -DOOAA98 
94 @2 SETLIN WS 00000004 AN - DOOAAFE 
95 @2 DTASEP WS 00000005 AN - DOOAB64 
96 02 HEX02 WS 00000006 AN -DOOABCA 
97 02 HEX12 WS 00000007 AN -DOOAC30 
98 02 EXOD WS 00000008 AN -DOOACI6 
99 02 HEX25 WS 00000009 AN -DOOACFC 
200 02 EXOF WS 00000010 AN -DOOAD62 
201 02 HEX20 WS 00000011 AN -DOOADC8 
202 02 EXOA WS 00000012 AN -DOOAEZE 
203 02 HEX06 WS 00000013 AN -DOOAE94 
204 02 DUMMYOO WS 00000014 AN -DOOAEFA 
205 02 LINENBR-HEX WS 00000015 AN - DOOAF62 
206 01 CONTROL-BYTE WS 00000000 GROUP .DOQAFCE 
207 02 DATA-TYPE WS 00000000 AN -DOOBO3A VALUE 
208 01 MESSAGES WS 00000000 120 GROUP .DQQBOB8 
209 02 MSGI WS 00000000 30 AN -DOOB120 VALUE 
210 02 MSG2 WS 00000030 30 AN -DOOBIAC VALUE 
211 02 MSG3 WS 00000060 30 AN -D00B238 VALUE 
212 02 MSG4 WS 00000090 30 AN -DOOB2C6 VALUE 
213, 01 MSG-TABLE WS 00000000 120 GROUP .DQQB358 REDEFINES .DQQBOB8 
214 02 MSG WS 00000000 30 AN .DO@B3C2 DIMENSION(4) 
215 01 ACCOUNT-STATUS WS 00000000 1 AN -D00B438 
216 88 VALID-ACCOUNT WS 
217 88 INVALID-ACCOUNT WS 
218 O01 EDATE WS 00000000 6 ZONED .DOOBS5CC 
219 01 ACCTNO WS 00000000 8 ZONED .D00B644 
220 01 AMOUN WS 00000000 7 PACKED .DOOB6BC 
221 01 AMOUNT-IN WS 00000000 10 ZONED .D00B736 
222 01 WRKBAL WS 00000000 6 PACKED .DO0B7B0 
223 0 OTRSV WS 00000000 6 PACKED .DOOB82A 
224 0 OTAVL WS 00000000 6 PACKED .DOOB8A4 
226 01 WSID LS 90000001 10 AN -DOOB91E 
227 01 SNDLEN LS 0000002 8 PACKED .D00B982 
228 01 DATA-PARM LS 90000003 256 AN -DOOB9FE 
ll DB-FORMAT-NAME SR 00001076 10 AN . DOOBAD4 

FILE SECTION uses 188 bytes of storage 
WORKING-STORAGE SECTION uses 1086 bytes of storage 
***** END OF DATA DIVISION MAP ** * * * 

STMT 

* 279 MSGID: LBLO412 SEVERITY: 20 SEQNBR: 004680 
Message... 1: INVALID KEY phrase not found in REWRITE 
statement. Accepted. 
*e*e ee END OF MESSAGES ** * ** 
Message Summary 
Total nfo(0-4) Warning (5-19) Error (20-29) Severe (30-39) Terminal (40-99) 
1 0 0 1 0 0 

Source records read... . 2... 2? 579 

Copy records read... ... 2... 3) 25 

Copy members processed ......3: 1 

Sequence errors ..........3 0 


Highest severity message issued. . : 


20 


LBLO901 00 Program OTSCBL1 created in library FNCLIB. 


x*x**x*x END OF COMPILATION 


kek KK 


Figure F-3 (Part 15 of 15). COBOL/400 Program OTSCBL1 for Non-ICF Finance 


RPG/400 Program Explanation 


This section explains the RPG/400 account inquiry 
and withdrawal program example in Figure F-4 on 
page F-20. 
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This section of the program defines the 
database file (ACCOUNT). 


ACCOUNT is the name of database file 
that contains the customer account infor- 
mation. 


Finance Communications Programming V4R1 


Note: The files used in this program are 
opened at the beginning of the ILE 
RPG/400 cycle. 


OUTPUT is the name of the structure 
used with the special file function. 


DATA is the name of the structure that 
contains the data parameters. 


CNSTDS is the name of the structure that 
contains the control bytes used for screen 
control on the 4704. 


OTSCTL is the name of the structure that 
contains the data to be sent to the con- 
troller. 


The finance job passes three parameters 
to this program: the name of the device 
that sent the data, the data length, and the 


data. 


This section of the program determines 
which fields in the data stream were sent 
by the controller. 


This section of the program verifies that 
the account number exists. If the account 

number is not found, an error message is 

sent to the controller. 


This section of the program determines 
the balance available to the customer. If 
an amount was sent from the controller 
that is less than the total amount available, 


Appendix F. Non-ICF Finance Example Programs 


a withdrawal is performed on the 
customer’s account. Otherwise, the trans- 
action is an account inquiry transaction. 


This section of the program performs the 
end-of-program processing. The LR indi- 
cator is set to on and all files are closed 

implicitly. Then the program ends. 


The output specifications are used 
together with the special file function. The 
data is formatted and passed to the 
program named in the special file function 
called (SUBEDT). This function then 
passes the data back during the read 
operation on file OUTPUT. In this 
example, the SUBEDT program passes 
back unchanged data. 
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COMPILER: seise ede coq ce os? we ces ioe ace ae IBM AS/400 RPG/400 
Command Options: 
Program ............ 2 FNCLIB/OTSRPG1 
Source file ..........32 FNCLIB/PGMSRC 
Source member ......... :  OTSRPG1 
Generation options .......:  *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE 
Source listing indentation... : *NONE 
SAA flagging... ....... :  *NOFLAG 
Generation severity level ...: 9 
rint file. .......... 2:  ¥*LIBL/QSYSPRT 
eplace program ........: *YES 
arget release... ..... . 3: *CURRENT 
User profile. .........: ‘*USER 
Authority ........... 2 *LIBCRTAUT 
ext. wee ee ee ee ew ee et) *SROMBRTXT 
hase trace ..........: *NO 
ntermediate text dump... .. : ¥*NONE 
Snap: dumps —<. 3s, 2s. fey ere. cat ose se. a *NONE 
Codelist............ 2  *NONE 
gnore decimal data error > *NO 
Actual Program Source: 
Member... 2. ....4.2 4. 2 OTSRPGI 
ETC Ses ete 8. ave eke e PGMSRC 
LRDTany ss af a f3. Bh ee ANS ta FNCLIB 
Last Change .. 1... . 2... 02 06/07/89 09:43:37 
SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER Me col vere shee cele at cone lene ote es ells cesth awe Oss tes Os aaetiss send SUSE NUM — UPDATE LINE ID 
Source Listing 
seek 
100 FOUTPUT CF F 240 SPECIAL SUBED 
200 FACCOUNT UF E K DISK 
300 Fx 
9.00 eke re EE EE IE IFS IE IE IE IEICE IE IE IF ICIS IEE IE IEICE IE II II IIR IR IR * 
500 Fx * 
600 F* THE SPECIAL FILE FUNCTION IN THIS PROGRAM IS USED TO EDIT * 
700 F* THE OUTPUT FOR THE TELLER MACHINES. IT ALLOWS THE USE OF * 
800 F* RPG III OUTPUT SPECS FOR FORMATTING THE DATA. WHEN AN OUTPUT * 
900 F* TO THE SPECIAL FILE IS PERFORMED, THE DATA IS FORMATTED AND PASSED * 
1000 F* TO THE USER-WRITTEN I/O ROUTING SPECIFIED IN THE SPECIAL FILE * 
1100 F* STATEMENT (SUBEDT). IN THIS EXAMPLE, SUBEDT ONLY DOES A * 
1200 F* RETURN. THE FORMATTED DATA IS THEN RETRIEVED WITH A READ FROM * 
1300 F* THE SPECIAL FILE AND MOVED INTO THE DATA STRUCTURE SENT TO * 
1400 F* THE 4700 CONTROL UNIT. * 
1500 Fe * 
1600 Bieber EE EE IE IEICE IE IE IE ISI CIEE IE IE IF ICIS CIEE IE IE IS ICIS IE IE ISI II II IR Ik * 
1700 Ex* 
1800 E** TABLES 
1900 Ex* 
RECORD FORMAT(S): LIBRARY FNCLIB FILE ACCOUNT. 
EXTERNAL FORMAT ACCOUNTR RPG NAME ACCOUNTR 
2000 E MSG 1 5 20 ERROR AND TEXT 
2100 E FLDS 7 10 OTS INPUT FLDS 
{2 | 2200 IOUTPUT NF @1 
2300 1 240 OUTREC 
AQ00000 INPUT FIELDS FOR RECORD ACCOUNTR FILE ACCOUNT FORMAT ACCOUNTR. 
A000001 P= 1. SOACCTNR 
A000002 6 26 NAME 
A000003 27 29 STR 
A000004 30 47 STR2 
A000005 48 63 CITY 
A000006 64 68 ZIP 
A000007 69 89 OCU 
A000008 P 90 952TBAL 
A000009 P 96 1012DLYWTH 
A000010 P 102 1072DLYDEP 
A000011 P 108 1132LIMIT1 
Figure F-4 (Part 1 of 11). Source for RPG/400 Program OTSRPG1 for Non-ICF Finance 
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A000012 
A000013 
A000014 
A000015 
A000016 
A000017 
A000018 
A000019 

Hi 2400 

SEQUENCE 
NUMBER 
2500 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 
3900 
4000 
4100 
4200 
4300 
4400 
4500 
4600 
4700 
Hi 4800 
4900 
5000 
5100 
5200 
5300 
5400 
5500 
5600 
5700 
5800 
5900 
6000 
6100 
6200 
6300 
6400 
6500 
6600 
6700 
6800 
6900 
7000 
7100 
7200 
7300 
7400 
7500 
7600 


Figure 


CNSTDS DS 


OTSCTL DS 


Pe 
PWNESOMYNMDE HEE OOMNMTGRPWNHHE 


a 


16 


1192LIMIT2 
1252RSVCS 
1312RSVCS2 
1372RSVRM 
1432RSVRM2 
1440ACTIVE 
182 LCKDSC 
1882WTHDRL 


fal 
= 
al 
> 
a 


mOomm 
= 
= 
=) 


OxxxxKxDTHEZENZS 
NOSOSS 
io) > 
a 
fal 


i=] 


a 
a 
1 


P 
RSPF 
PARM 
Ss 
RSPF 
6 PSPARM 


a 
OABRWNFOCOAN 


unmeCUWSEDYS 
a a 
U U 
a 


Se ie Ae res 


REESE ICSE ISOS IIS ISSO IIA IO CTE T OI IIIT I III III 


Cxe 
Cxe 

Cxe 

Cxx THE LENGTH OF T 
Cx THE DATA PLACED 
Cxe 
Quetttt t er tert tert. 
c *ENTRY PL 
C PAI 
c PAI 
c PAI 
c MOV 
c BI 
c BI 
c BI 


THE SBMFNCJOB INTERFACE PASSES THE PROG! 
THE NAME OF THE REQUESTING TERMINA 


E DATA PLACED IN TI 
IN THE BUFFER 


* 
S 

M WSID 

M SNDLEN 
M INPPR1 
ELINPPR1 INPPRM 
OF'1' NEWPAG 
OF'1' NEWLIN 
OF'1' SETPOS 


RAM THREE PARAMETERS: 


L 
HE BUFFER 


0 
55 
256 


eH 


FOI IIR IR TOI TOR I OK IIR IK TOR RIOR I OK IIR IKK IKK IRR 


WORK STATION ID 
OUTPUT LENGTH 
INPUT DATA 

PUT IN WORK FLD 
SET CONSTANTS 
TO HEX'@0' 


IND 
USE 


DO LAST PAGE PROGRAM 
NUM = UPDATE LINE ID 
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SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER Re Gelb eso Ess eels elals tee tooo cot vee ede ek sees weet aces sa hea el eee SUSE NUM UPDATE LINE ID 


7700 C BITOF'1' MOVHOR 
7800 C BITOF'1' SETLIN 
7900 C BITOF'1' x02 
8000 C BITOF'1' X08 
8100 C BITOF'1' XOA 
8200 C BITOF'1' X25 
8300 C BITON'45! NEWPAG SET SCREEN 
8400 C BITON'357' NEWLIN CONTROL 
8500 C BITON'235' SETPOS CONSTANTS 
8600 C BITON'4! MOVHOR 7 
8700 C BITON'5! SETLIN 
8800 C BITON'0234567' DTASEP u 
8900 C BITON'4' X08 
9000 C BITON'6! X02 7 
9100 C BITON'46! XOA 
9200 C BITON'257' X25 
9300 Cx* 
9400 C MOVEL'O! DTATYP SET 4700 
9500 Cx* CONTROL BYTE 
9600 Cxx TO INDICATE 
9700 Cxx DATA FOLLOWS 
9800 C MOVE ‘0! *IN99 
9900 Z-ADDO MODE 
10000 C Z-ADDO MOREDT 
LOLOQ Cem xR KR RK RK KKK KIKI KR KKK KK KI KKK IKK KI KK KIKI KI IK KIRK IKK KIRK KIKI K 
10200 Cx* * 
10300 C** OTS CAN PASS THE PROGRAM 7 INPUT FIELDS. IT HAS 7 FLAGS * 
10400 C** THAT INDICATE WHETHER THE INPUT FIELDS WERE ENTERED * 
10500 Cx* FLD1P CONTAINS "1" IF FIELD 1 WAS ENTERED, "" OTHERWISE + 
10600 Cx* FLD2P CONTAINS "2" IF FIELD 2 WAS ENTERED, "" OTHERWISE  * 
10700 Cx * 
10800 C** THE DATA IS LOADED SEQUENTIALLY INTO THE BUFFER. * 
10900 C** IF THE OPERATOR ENTERS FIELDS 1, 3, 5, 7 THEY WILL BE * 
11000 C** IN THE INPUT FIELDS IN POSITIONS 1, 2, 3, AND 4 * 
11100 C#* * 
11200 C** INSPECT THE INPUT FIELDS AND MOVE THE INPUT DATA FIELDS * 
11300 C** INTO THE CORRECT PROGRAM FIELDS * 
11400 C#* * 
11500 GR RE EERE SFE ISIE ISIS S IFSC SII CIC III II IIIA II 
11600 C+ 
11700 C** MOVE THE INPUT FIELDS TO THE CORRECT PROGRAM FIELDS 
11800 Ce* 
11900 Cc Z-ADD1 I 20 
12000 C* 
12100 C* GET FIELD 1 - THE ACCOUNT NUMBER 
12200 Cx 
12300 C FLDIP IFEQ ‘1! BOO1 
12400 C MOVE FLDS,I  ACCTNR 80 001 
12500 C ADD 1 I 001 
12600 C ELSE x001 
12700 C Z-ADDO ACCTNR 001 
12800 C END E001 
12900 C* 
13000 C* GET FIELD 2 - THE TRANSACTION AMOUNT 


Figure F-4 (Part 3 of 11). Source for RPG/400 Program OTSRPG1 for Non-ICF Finance 
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SEQUENCE 
NUMBER 
13100 
13200 
13300 
13400 
13500 
13600 
13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
Ei 15700 
15800 
15900 
16000 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
16800 
16900 
17000 
17100 
17200 
17300 
Bi 17400 
17500 
17600 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18400 


Figure 


He FH HH HH OH OF 


ee ee ee 


Mee clita tah ateAeceet athe gets sestittee ls a cis tes Ge Dy cat nae dO state She ae tai * 
Cx 

Cc FLD2P FEQ '2' 

Cc MOVE FLDS,I AMNT1 102 

C ADD 1 I 

Cc ELSE 

Cc Z-ADDO AMNT1 

Cc END 

Cx 

Cx IGNORE FIELD 3 IF IS PRESENT ... NOT USED IN THIS PROGRAM 
Cx 

Cc FLD3P FEQ '3' 

Cc ADD 1 I 

Cc END 

CE EE ESE IE IE IE III IE IE IE ISIS IE IE IE IEICE IEE IEE IS ISIC IE ISI II II IIR IR I 
Cex 

Cx* FIRST MAKE SURE THAT AN ACCOUNT NUMBER WAS ENTERED. 

Cxx IF NO ACCOUNT NUMBER OR AN ACCOUNT NUMBER OF ZERO 

Cxx WAS ENTERED, SEND AN ERROR MESSAGE BACK TO THE OPERATOR. 
Cex 

Cxx IF AN ACCOUNT NUMBER IS PRESENT, CHAIN OUT TO THE ACCOUNT 
Cxx FILE TO GET THE MASTER RECORD. 

Cx« 

Cex IF THE CHAIN FAILS, SEND AN ERROR MESSAGE BACK TO THE 

Cxx OPERATOR. 

Cx 

Ce EE ESE IE IE IE III IE IE IE IES IE IE IFC ICIS IEE IE IE IEICE IE ICI II II II IR IR 
C ACCTNR IFEQ *ZERO 

Cc MOVELMSG, 4 EX 20 

Cc EXSR OUTPO1 

Cc ELSE 

Cc ACCTNR CHAINACCOUNT 90 

C *IN9O IFEQ '1' 

Cc MOVE MSG,1 EX 

Cc EXSR OUTPO1 

C ELSE 

CE EE SE IE IE IE I II IE IE IE IE SIS IE IE IEF IEE IE IE ISIC IEE ISI ICI II SII IR IK 
Cx 

Cx* CHECK TO MAKE SURE THAT THE ACCOUNT IS ACTIVE. 

Cxx IF IT IS NOT, MAKE AMNT1 ZERO...MEANING THAT TRANSACTION 
Cxx IS AN INQUIRY. ALSO SEND A MESSAGE TO THE SCREEN 

Cxx INDICATING THAT THE ACCOUNT IS INACTIVE. 

Cex 

CR EE ESE IE IE IE IFS IE IE IE ISI SIS IE IE IE IFSC IERIE ISIS ICIS IE ICI ICI III II IR IE 
C ACTIVE IFGT 0 

Cc Z-ADDO AMNT1 

Cc MOVE MSG,3 TEXT 

Cc END 

C MOVE TBAL BALOUT 102 

C ADD DLYWTH BALOUT 

C ADD DLYDEP BALOUT 

C BALOUT ADD LIMIT1 WRKBAL 102 

C ADD LIMIT2 WRKBAL 

Cc MOVELMSG,5 FELD4 12 

Cc ADD RSVCS1 TOTRSV 102 


IND 
USE 


DO LAST PAGE PROGRAM 
NUM UPDATE LINE ID 


BOO 
00 
00 

x00 
00 

E001 


BOO 
001 
E00 


BOO1 
001 
001 

x001 
001 

Bo02 
002 
002 

x002 


B003 
003 
003 

E003 
002 
002 
002 
002 
002 
002 
002 
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SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER We Gelb P40 E Ss eis alate tee ue Des eet we Ale Me cad ath gelvie s vee t asses sa tea el eect SUSE NUM UPDATE LINE ID 


18500 C ADD RSVCS2 —-TOTRSV 002 
18600 C ADD RSVRM TOTRSV 002 
18700 C ADD RSVRM2 — TOTRSV 002 
18800 C MOVE DLYDEP  DEPSIO 102 002 
18900 C MOVE DLYWT WTHDRO 102 002 
19000 C AMNT1 FEQ 0 B003 
19100 C EXSR OUTPO2 003 
19200 C ELSE X003 
19300 C TBAL FLT 0 Boo4 
19400 C Z-SUBBALOU BALMGS 102 004 
19500 C ELSE X004 
19600 C Z-ADDBALOU BALMGS 004 
19700 C END £004 
19800 C MOVE WRKBAL — TOTAVL 102 003 
19900 C SUB TOTRSV —TOTAVL 003 
20000 C AMNT1 FGT TOTAVL Bo04 
20100 C MOVE MSG,2 TEXT 004 
20200 C EXSR OUTPO 004 
20300 C ELSE x004 
20400 C ADD AMNT1 WTHDRL 004 
20500 C SUB AMNT1 DLYWTH 004 
20600 C SUB AMNT1 BALOUT 004 
20700 C SUB AMNT1 BALMGS 004 
20800 C MOVELNAME NAME1 20 004 
20900 C UPDATACCOUNTR 004 
21000 C EXSR QUTPO3 004 
21100 C END E004 
21200 C END £003 
21300 C END £002 
21400 C END £001 
21500 C** END OF JOB 
21600 Cx* 

H21700 c SETON LR 3 
21800 C RETRN 
2.1900 ORIG II II ICICI EOI I IO I AIR A A I 
22000 Cx* IF YOU WILL SEND JUST ONE RECORD, YOU DO NOT NEED * 

22100 Cx* THE 'QFNWRT' PROGRAM. * 
22200 C&R KKK RK KR KKK KKK KK KIKI KIKI KKK IK KK IKK IK KK IK IK KK KKK KEIR KEIR RK. 
22300 C OUTPO1 —_—BEGS. 

22400 C Z-ADDO MORED 

22500 C EXCPTOUTPD1 

22600 C READ OUTPUT 99 3 
22700 C MOVE OUTREC — INPPR 

22800 C MOVELOTSCTL — INPPR 

22900 C Z-ADD46 SNDLEN 

23000 C ENDS 

23100 C* 

23200 C OUTPO2 —_—BEGS. 

23300 C Z-ADDO MORED 

23400 C Z-ADD1 MODE 

23500 C EXCPTOUTPD2 

23600 C EAD OUTPUT 99 3 
23700 C MOVE OUTREC — INPPR 

23800 C MOVELOTSCTL — INPPR 


Figure F-4 (Part 5 of 11). Source for RPG/400 Program OTSRPG1 for Non-ICF Finance 
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SEQUENCE 

NUMBER 
23900 
24000 
24100 
24200 
24300 
24400 
24500 
24600 
24700 
24800 
24900 
25000 
25100 
25200 
25300 
25400 
25500 
25600 
25700 
25800 
25900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 
26700 
26800 
26900 
27000 

Ey 27100 
27200 
27300 
27400 
27500 
27600 
27700 
27800 
27900 
28000 
28100 
28200 
28300 
28400 
28500 
28600 
28700 
28800 
28900 
29000 


Figure 


OUTPO3 


LINENR 
LINENR 


oReheheleheleleleleleieietetelsietvieteletetieisis) 


Cc 


99 
PPR1 


DLEN 


99 


(HBSS EEE IGE SSIS IOS ISIS SIE G III IOC IAI ITI TOI III IIIA 


Cxx 
Cx* OUTPUT TO FORMAT E 
Cx* NO ACCOUNT NUMBER 
Cxx 


Z-ADD208 SN 
CALL 'QFNWRT' 
‘ARM WS 
‘ARM SN 
ARM IN 
ARM DT. 
Z-ADDO MO 
EXCPTOUTPD3 

EAD OUTPUT 

MOVE OUTREC IN 
MOVELOTSCTL IN 
Z-ADD85 SN 
ENDS! 

BEGS 

Z-ADDO MO! 
ADD 1 LI 
FGT 16 

Z-ADD1 LI 
END 

EXCPTOUTPD4 

EAD OUTPUT 

MOVE OUTREC IN 
MOVELOTSCTL IN 
Z-ADD191 SN 
ENDSR 

ROR DISPLAY FOR 
ENTERED 


* 
INVALID OR * 
* 
* 


(CREE GEESE IOS IOS ISOS ISSO SISOS III IOC IE ITO ITI TOI ITI III 


OOUTPUT E 
0 
0 
0 


OUTPD1 
NEWPAG 
TEX 
DTASEP 30 


Qe S IOS OS IIS OHIO E IGT TO I IOI TOI ITI ITI II 


Ox 
QO** OUTPUT TO FORMAT F 
Ox 


IRST PART OF INQU 


* 


IRY DISPLAY * 


* 


Dee E SISSIES IIS OHIO OG TIO ITO I TOI TOIT III III I 


E 


Roo Ro ooo nono n=) 


OUTPD2 
NEWPAG 
TEX 
NEWLIN 


ACCTNRZ + 1 
NEWLIN 


BALOUTJ + 1 
NEWLIN 


"ACCONTNR' 


"BALANCE' 


"DEP! 


IND DO LAST PAGE PROGRAM 
USE NUM = UPDATE LINE ID 


BoO1 
001 
E001 
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SEQUENCE IND DO LAST PAGE PROGRAM 


NUMBER Reseed e450 E ss vale iets tee CeSas co tean eHnes shea sed o sev ta sOed sa teas el eee SUSE: NUM UPDATE LINE ID 
29100 0 DEPSIO2 + 1 
29200 0 + 2 'WTH' 
29300 0 WTHDROZ2 + 1 
29400 0 NEWLIN 
29500 0 "RES AMOUNT! 
29600 0 OTRSV4 + 3 
29700 0 NEWLIN 
29800 0 "LIM1' 
29900 0 LIMIT12 + 4 
30000 0 + 2 'LIM2' 
30100 0 LIMIT22 + 4 
30200 0 NEWLIN 
30300 0 FELD4 
30400 0 WRKBALJ + 1 
30500 0 NEWLIN 
30600 0 LCKDSC 
30700 0 DTASEP 192 
BOBOO Qk RK AK RK KKK KKK KIKI KIKI KR KK IK KK IK KK IKK KI KK KIKI KIKI KIA KK RIK KICK 
30900 Ox* * 
31000 O** OUTPUT TO FORMAT SECOND PART OF INQUIRY DISPLAY * 
31100 Ox« * 
B1L200 Qe mm RAK RK KR RK KKK KKK KIKI KIKI KKK IK KK IKK KKK KIKI KIKI KK II KK IK KEI KKK. 
31300 0 E OUTPD3 
31400 0 SETPOS 
31500 0 SETLIN 
31600 0 X08 
31700 0 NAME 
31800 0 NEWLIN 
31900 0 STR1 
32000 0 STR2 
32100 0 NEWLIN 
32200 0 ZIP 
32300 0 CITY +. 1 
32400 0 DTASEP 69 
32500 Qe kK RAK RR KKK RIK KIKI KIKI KKK IK KK IK KI KKK IKK KIKI KIKI RII RIK KICK 
32600 Ox« * 
32700 Ox* OUTPUT TO FORMAT WITHDRAWAL DISPLAY * 
32800 Ox« * 
32900 Qe eR AK KARR RRR KKK KIKI KIKI KKK KK KK IK KK IKK KI KKK IK KK IK IK KIRK IK KICK 
33000 0 E OUTPD4 
33100 0 NEWPAG 1 
33200 0 NAME 
33300 0 SETPOS 
33400 0 MOVHOR 
33500 0 XOA 
33600 0 UDATE Y 
33700 0 NEWLIN 
33800 0 OcUP 
33900 0 NEWLIN 
34000 0 "ACCOUNT-NR' 
34100 0 ACCTNRZ + 1 
34200 0 NEWLIN 
34300 0 "AMOUNT ' 
34400 0 AMNT1 2 
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SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER Have dew cet es close sts sis Oe poets cheese tee cet ti4s Oot te tele ee (USE NUM = UPDATE LINE ID 
34500 0 NEWLIN 
34600 0 NEWLIN 
34700 0 "BALANCE ' 
34800 0 BALOUTJ + 6 
34900 0 NEWLIN 
35000 0 FELD4 
35100 0 WRKBALJ + 1 
35200 0 NEWLIN 
35300 0 NEWLIN 
35400 0 TEX 
35500 0 DTASEP =175 
35600 Or rr REE SEE ISIS EIFS EIFS ICIS IIIS I ICICI IIR IOI IT IR OI IIR. 
BOOO000 = OUTPUT FIELDS FOR RECORD ACCOUNTR FILE ACCOUNT FORMAT ACCOUNTR. 
Boo0001 ACCTNR 5P PACK 8,0 
Bo00002 NAME 26 CHAR 21 
B000003 STR1 29 CHAR 3 
Bo00004 STR2 47 CHAR 18 
BO00005 CITY 63 CHAR 16 
BO00006 ZIP 68 CHAR 5 
BO00007 OCUP 89 CHAR 21 
BO00008 BAL 95P PACK 10,2 
Bo00009 DLYWTH  101P PACK 10,2 
B000010 DLYDEP 107P PACK 10,2 
Bo00011 LIMIT1 113P PACK 10,2 
Bo00012 LIMIT2 119P PACK 10,2 
B000013 RSVCS1 125P PACK 10,2 
Bo00014 SVCS2 131P PACK 10,2 
Bo00015 SVRM1 137P PACK 10,2 
BO00016 SVRM2  143P PACK 10,2 
Bo00017 ACTIVE 144P PACK 1,0 
BO00018 LCKDSC 182 CHAR 38 
Bo00019 WTHDRL 188P PACK 10,2 
ee ee END SOURCE kK KKK 
Additional Diagnostic Messages 
SEQUENCE LAST 
NUMBER Hoare taba e Lig-sieiat since l sin 6 ot ae oo Sei vet os SUAS co ot estes Os sitet sin O50 ot ess O67 5.08 668 08 UPDATE 
Compile-Time Tables 
Table/Array ......: 
35800 ACCOUNT-NR NOT FOUND 
35900 INSUFFICIENT FUNDS 
36000 ACCOUNT INACTIVE 
36100 NO ACCOUNT-NR ENTERED 
36200 WORK LIMIT 
TABLE OF END POSITION OFFSETS FOR FIELDS DESCRIBED USING POSITION NOTATION. 
STMT NO POS STMT NO POS STMT NO POS STMT NO POS 
27200 1 27300 21 28100 1 28200 21 
28300 22 28400 30 28500 39 28600 40 
28700 47 28800 62 28900 63 29000 66 
29100 80 29200 85 29300 99 29400 100 
29500 110 29600 124 29700 125 29800 129 
29900 146 30000 152 30100 169 30200 170 
30300 182 30400 197 30500 198 30600 236 
31400 1 31500 2 31600 3 31700 24 
31800 25 31900 28 32000 46 32100 47 
32200 52 32300 69 33200 22 33300 23 
33400 24 33500 25 33600 33 33700 34 
33800 55 33900 56 34000 66 34100 75 
34200 76 34300 82 34400 95 34500 96 
34600 97 34700 104 34800 124 34900 125 
35000 137 35100 152 35200 153 35300 154 
35400 174 
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Key Field Information 
PHYSICAL LOGICAL 
FILE/RCD FIELD FIELD ATTRIBUTES 
02 ACCOUNT 
ACCOUNTR 
ACCTNR PACK 8,0 SIGNED 
Cross Reference 
File and Record References: 
FILE/RCD DEV/RCD REFERENCES (D=DEFINED) 
02 ACCOUNT DISK 200D 16100 
ACCOUNTR 200D A000000 20900 B000000 
01 OUTPUT SPECIAL 100D 2200 22600 23600 24700 
26000 27100 28000 31300 33000 
Field References: 
FIELD ATTR REFERENCES (M=MODIFIED D=DEFINED) 
*ENTRY PLIST 6900D 
*IN9O A(1) 16200 
*IN99 A(1) 9800M 
ACCTNR P(8,0) AQ00001D 12400D 12700M 15700 16100 
28500 34100 BO00001D 
ACTIVE P(1,0) AQ00017D 17400 B000017D 
AMNT1 P(10,2) 13300D 13600M 17500M 19000 20000 
20400 20500 20600 20700 34400 
BALMGS P(10,2) 19400D 19600M  20700M 
BALOUT P(10,2) 17800D 17900M 18000M 18100 19400 
19600 20600M 28800 34800 
CITY A(16) A000005D 32300 BOO0005D 
* 7031 CNSTDS DS (11) 3600D 
* 7031 DATA DS (256) 2400D 
DEPSIO P(10,2) 18800D 29100 
DLYDEP P(10,2) AQ00010D 18000 18800 B000010D 
DLYWTH P(10,2) AQ00009D 17900 18900 20500M BOQ0009D 
* 7031 DRSPF A(1) 5200D 
DTASEP A(1) 4200D 8800M 27400 30700 32400 
35500 
DTATYP A(1) 4700D 9400M 24400 
FELD4 A(12) 18300D 30300 35000 
FLDS(7) A(10) 21000  3500D 
FLDS,1 12400 13300 
FLD1P A(1) 2800D 12300 
FLD2P A(1) 2900D 13200 
FLD3P A(1) 3000D 14100 
* 7031 FLD4P A(1) 3100D 
* 7031 FLD5P A(1) 3200D 
* 7031 FLD6P A(1) 3300D 
* 7031 FLD7P A(1) 3400D 
P(2,0) 11900D 12400 12500M 13300 13400M 
14200M 
NPPRM A(256) 2500D 7300M 
NPPR1 A(256) 7200D 7300 22700M 22800M  23700M 
23800M 24300 24800M 24900M  26100M 
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Finance Communications Programming V4R1 


* 7031 JPPARM 
* 7031 JPRSPF 
LCKDSC 
LIMIT1 
LIMIT2 
LINENR 
MODE 
MOREDT 


MOVHOR 

* 7031 MRSPF 
MSG(5) 

MSG,1 

MSG,2 

MSG,3 

MSG, 4 

MSG,5 

NAME 

NAME1 

NEWLIN 


NEWPAG 


ocuP 
OTSCTL(1) 


7031 PPRSPF 
7031 PSPARM 
7031 RSPDS 
7031 RSPJP 
7031 RSPMS 
7031 RSPPS 


Oe * Oe O 


TOTAVL 
TOTRSV 


26200M 


A(1) 5700D 
A(1) 5600D 
A(38)  A000018D 
P(10,2) AQ00011D 
P(10,2) A000012D 
Z(2,0) 2600D 
Z(1,0) 4900D 
Z(1,0) 5000D 
25400M 
A(1) 4000D 
A(1) 54000 
A(20) 2000D 
16300 
20100 
17600 
15800 
18300 


A(21)  a090002D 
A(20) 20800D 
A(1) 3800D 

28900 

31800 

34500 
A(1) 3700D 

33100 
A(21)  A000007D 
DS (16) 4800D 
EXCPT 22500 
EXCPT 23500 
EXCPT 24600 
EXCPT 25900 
BEGSR 15900 
BEGSR 19100 
BEGSR 21000 


A(240) 2300D 
A(1) 5900D 
A(1) 6000D 
A(1) 5100D 
A(1) 5500D 
A(1) 5300D 
A(1) 5800D 
P(10,2) A000013D 
P(10,2) A000014D 
P(10,2) AQ00015D 
P(10,2) AQ00016D 
A(1) 4100D 
A(1) 3900D 
P(15,5)  7100D 

26300M 
A(3) 40000030 
A(18)  A000004D 
P(10,2) Ag00008D 
A(20) 15800D 

28200 
P(10,2)  19800D 
P(10,2)  18400D 


30600 B000018D 
18100 29900 
18200 30100 
25500 25500M 
9900M  23400M 
10000M 22400M 


7700M 8600M 


20800 31700 


7500M 8400M 
29400 29700 
32100 33700 
34600 34900 
7400M 8300M 


33800 B000007D 
22800 23800 
27100 
28000 
31300 
33000 
16400 20200 
23200D 
25300D 
22700 23700 


18400 B000013D 
18500 B000014D 
18600 B000015D 
18700 8000016D 
7800M 8700M 
7600M 8500M 
22900M 23900M 


31900 B000003D 
32000 B000004D 
17800 19300 
16300M 17600M 
35400 

19900M 20000 
18500M 18600M 


Bo00011D 

Bo00012D 
25600 
23300M 


33400 


33200 
28300 
30200 
33900 


35200 
27200 


24900 


22300D 


24800 


31500 
31400 
24200 


BO00008D 
20100M 


18700M 


25700M 


24500M 


B000002D 


28600 
30500 
34200 
35300 
28100 


26200 


26100 


33300 
25000M 


27300 


19900 
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29600 


* 7031 TRNCDE A(3) 2700D 
UDATE P(6,0) 33600 
WRKBAL P(10,2) 18100D 18200M 19800 30400 35100 
WSID A(10) 7000D 24100 
WTHDRL P(10,2) AQ00019D 20400M BO00019D 
WTHDRO P(10,2) 18900D 29300 
XOA A(1) 4500D 8100M 9100M 33500 
x02 A(1) 4300D 7900M 9000M 
X08 A(1) 4400D 8000M 8900M 31600 
X25 A(1) 4600D 8200M 9200M 
ZIP A(5) A000006D 32200 BO00006D 
*ZERO LITERAL 15700 
"QFNWRT' LITERAL 24000 
‘Q' LITERAL 9400 9800 
'0234567' LITERAL 8800 
“y LITERAL 7400 7500 7600 7700 7800 
7900 8000 8100 8200 12300 
16200 
ves LITERAL 13200 
235! LITERAL 8500 
257! LITERAL 9200 
"3? LITERAL 14100 
"357! LITERAL 8400 
‘q' LITERAL 8600 8900 
"45! LITERAL 8300 
"46! LITERAL 9100 
"5! LITERAL 8700 
‘6! LITERAL 9000 
0 LITERAL 9900 10000 12700 13600 17400 
17500 19000 19300 22400 23300 
24500 25400 
1 LITERAL 11900 12500 13400 14200 16300 
23400 25500 25700 
16 LITERAL 25600 
191 LITERAL 26300 
2 LITERAL 20100 
208 LITERAL 23900 
3 LITERAL 17600 
4 LITERAL 15800 
46 LITERAL 22900 
5 LITERAL 18300 
85 LITERAL 25000 
Indicator References: 
INDICATOR REFERENCES (M=MODIFIED D=DEFINED) 
*IN 9800M 16200 
LR 21700M 
* 7031 O01 2200M 
90 6100M 16200 
99 9800M  22600M 23600M 24700M  26000M 


x*x*ex*e END OF CROSS REFERENCE ** * * * 
Message Summary 
* QRG7031 Severity: 00 Number: 18 
Message . . .. : The Name or indicator is not referenced. 
x**e*x* END OF MESSAGE SUMMARY ** * * * 
Final Summary 
Message Count: (by Severity Number) 
TOTAL 00 10 20 30 40 50 


18 18 0 0 0 0 0 
Program Source Totals: 
Records. .........: 362 
Specifications ......: 249 
Table Records. ......: 5 
Comments .........: 107 


PRM has been called. 
Program OTSRPG1 is placed in library FNCLIB. 00 highest Error-Severity-Code. 
x*x*e*x* END OF COMPILATION *** * * 
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COMPILE le spe) Care ican io eco oy tees S 
Command Options: 
Program 
Source file 
Source member 
Generation options .......: 
Source listing indentation. ..: 
SAA flagging... .......432 
Generation severity level ...: 
HIME PU C5 to Ree oe eee eS ee 
Replace program 
arget release... ......: 
User profiles. 6 sce. cele 3 
Authority 
ONT ge iol ean oe eat a a oy chin ee 
hase trace 
ntermediate text dump. ....: 
Snap dump 
Codelisttsn..% 25.205. gale ds Sk des Batt 
gnore decimal data error : 
Actual Program Source: 
Member ose seue. st eos ee See cele eS 


Library 
Last Change 
SEQUENCE 
NUMBER 


Source 


Pherel cava sreltie overs Wo ae Oe SS 


IBM AS/400 RPG/400 


FNCLIB/SUBEDT 
FNCLIB/PGMSRC 
SUBEDT 
*NOLIST 
*NONE 
*NOFLAG 
9 
*LIBL/QSYSPRT 
*YES 
*CURRENT 
*USER 
*LIBCRTAUT 
*SRCMBRTXT 
*NO 

*NONE 
*NONE 
*NONE 

*NO 


*NOXREF *NOATR *NODUMP 


SUBEDT 
PGMSRC 
FNCLIB 
06/07/89 09:39:30 


IND 
ote ech. wanthiene0e este Oda iaaeTione® “USE 


Listing 


100 Re ERB S ORES SS ECORI ISCO SSE C OS ISCO ISIS IS TOSS I TOSI ITO I II IR 


THIS SPECIAL FILE ACCEPTS DATA FROM THE OTSRPG1 PROGRAM 
AND FORMATS THE DATA FOR OUTPUT TO THE THE 4700 FINANCE 
WHEN A READ FROM THIS SPECIAL FILE IS PERFORMED, 
THE FORMATTED DATA IS RETURNED TO THE RPG PROGRAM. 


800 re GE RE EB ESOS SEIS S IS SCO S ISCO SIS OCS EIE COSTS TOSI IAT III I III 


200 Fx 
300 Fx 
400 Fx 
500 Fx DEVICES. 
600 Fx 
700 Fx 

H 
900 C *ENTRY PLIST 
000 C PARM 
100 C ARM 
200 C PARM 
300 C ARM 
400 C ETRN 


ke KKK 


END OF S 


Cross R 


Field References: 


Additional Diagnostic 


OPTCDE 1 
RTNSTS 1 
ERRFND 50 
RECORD240 


500 eR EB SES REISE SECO S ISCO S IS ESOS EIE COS ISTO I TOSI I TO TOI II II 
600 eR RR EER SSSI S IS SCOR ISCO S ISOC SISSIES TOC I TOSI I TO TIT IR II 


Kk ke 
Messages 


OURCE 


eference 


FIELD ATTR REFERENCES (M=MODIFIED D=DEFINED) 
*ENTRY PLIST 900D 
ERRFND P(5,0) 1200D 
OPTCDE A(1) 1000D 
RECORD A(240) 1300D 
RTNSTS A(1) 1100D 
x*xx*ex END OF CROSS REFERENCE ** * * * 
Final Summary 
No errors found in source program. 
Program Source Totals: 
RECOPAS s.6. 2o te Ger se oc aetive ce cor, LO. 
Specifications ......: 6 
Table Records. ......: 0 
Comments «6 ee ee et 6 10 


PRM has been called. 


Program SUBEDT is placed in library FNCLIB. 00 highest Error-Severity-Code. 


kK Re KK 


END OF 


COMPILATION 


kee KK 


*NOOPTIMIZE 


DO LAST 
NUM = UPDATE 


PAGE PROGRAM 
LINE ID 


04/22/88 
04/22/88 
06/07/89 
06/07/89 
06/07/89 
06/07/89 
04/22/88 
04/22/88 
feienk 
04/22/88 
04/22/88 
04/22/88 
04/22/88 
04/22/88 
04/22/88 
04/22/88 
04/22/88 
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Appendix G. Configuration Examples 


This appendix provides configuration examples for 
Financial Branch System Services (FBSS) finance 
controllers attached to AS/400 systems using 
SDLC, token-ring, and X.25 network lines. Each 
example shows the CL commands used to create 
the AS/400 configuration objects and the FBSS 
configuration displays containing values that must 
match the AS/400 configuration. 


Configuration Example for FBSS 
Controller Using SDLC 


The following CL commands can be used to 
create the AS/400 configuration objects needed to 
attach an FBSS controller with three attached 
devices to an AS/400 system over a nonswitched 
SDLC line. 


CRTLINSDLC LIND(FBSSLINE) RSRCNAME(LINO71) ROLE(*PRI) 
CNN(*NONSWTPP) NRZI(*YES) DUPLEX (*HALF) 
CRTCTLFNC CTLD(CTLFBSS) TYPE(*FBSS) MODEL(@) 
LINKTYPE(*SDLC) SWITCHED (*NO) 
LINE(FBSSLINE) EXCHID(05712345) 
STNADR(C1) 


CRTDEVFNC DEVD(FBSSDEV02) TYPE(*FNCICF) LOCADR(02) 
RMTLOCNAME (DEVO2) CTL(CTLFBSS) 

CRTDEVFNC DEVD(FBSSDEVO3) TYPE(*FNCICF) LOCADR(03) 
RMTLOCNAME (DEVO3) CTL(CTLFBSS) 

CRTDEVFNC DEVD(FBSSDEV04) TYPE(*FNCICF) LOCADR(04) 


RMTLOCNAME (DEVO4) CTL(CTLFBSS) 


Program Explanation 


The following displays are used to configure the 
FBSS controller for SDLC communications with 

the AS/400 system. Values that must match the 
AS/400 configuration are described below. 


The Data Link Control specified on the 
FBSS Communication Servers display 
(SDLC) must match the link type 
(LINKTYPE parameter) specified on the 
CRTICTLFNC command (see Figure G-1). 


2 | If an SSCP name is specified for the 
FBSS controller, the value must match the 
AS/400 SSCP identifier (SSCPID param- 
eter) specified on the CRTCTLFNC 
command (see Figure G-2 on page G-2). 


© Copyright IBM Corp. 1997 


FBSS Station address must match the 
station address (STNADR parameter) 
specified on the CRTCTLFNC command 
(see Figure G-3 on page G-2). 


4 | FBSS N.R.Z./. value must match the value 
specified for NRZI data encoding (NRZI 
parameter) on the CRTLINSDLC 
command (see Figure G-3 on page G-2). 


5 | FBSS Switched line value must match the 
value specified for the connection type 
(CNN parameter) on the CRTLINSDLC 
command and the SWITCHED parameter 
on the CRTCTLFNC command (see 
Figure G-3 on page G-2). 


G Concatenation of the FBSS /dentification 
block and Identification number must 
match the exchange identifier (EXCHID 
parameter) specified on the CRTCTLFNC 
command (see Figure G-3 on page G-2). 


7 | FBSS Line mode must match the value 
specified for the DUPLEX parameter on 
the CRTLINSDLC command. If CRTS is 
specified for the FBSS, DUPLEX(*FULL) 
must be specified on the CRTLINSDLC 
command (see Figure G-3). 


MN 


8 | Logical unit numbers specified for the 
FBSS controller must match the local 
location addresses (LOCADR parameters) 
specified for the device descriptions 
(CRTDEVFNC commands) associated with 
this controller description (see Figure G-4 
on page G-2). 


— 


COMVER FINANCIAL BRANCH SYSTEM SERVICES 
mmunication Servers 


Cor 
Path ......: C:\FNC\FBSSCUS\ Configuration ......: LAN@1 


Data Link Control ..........- SspLc 


Figure G-1. FBSS Communication Servers Display 


G-1 


[ | 
COMVER FINANCIAL BRANCH SYSTEM SERVICES 
james 
Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: SDLC1 
PC Server..: C1 
SSCP nameO1 ...... x! m2 | SSCP named2 
SSCP nameQ3 ...... x! ; SSCP nameQ4 ... 
SSCP nameQ5 ...... x! : SSCP nameQ6 ... 
SSCP nameQ7 ...... x! ' SSCP name@8 ... 
SSCP nameQ9 ...... x! : SSCP namelO ... 
SSCP namell ...... x! " SSCP namel2 ... 
SSCP namel3 ...... x! : SSCP namel4 


SSCP namel5 ...... x! ' SSCP namel6 


Figure G-2. FBSS SSCP Names Display 


COMSDL FINANCIAL BRANCH SYSTEM SERVICES 
SDLC Communications 
Path ......: C:\FBSSNEW\FBSSCUS\ 
Cl 


h Configuration ......: SDLC1 
PC Server..: 


Station address ..............005 
Ne Res Ze Ts, ae 


1 Oo 3 | 

ess “ae No 

Switched line ........ es No 
Identification block . eee '057' 


Identification number ... 
Line mode 


ee 5! 
. Turn. required CRTS 


Figure G-3. FBSS SDLC Communications Display 


[ | 
COMSLU FINANCIAL BRANCH SYSTEM SERVICES 
Session-Id and LU Assignments 
Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: SDLC1 
PC Server..: C1 Data Link Control ..: SDLC 
Circuit type .......: Switched Permanent Not applicable 


Figure G-4. FBSS Session-ld and LU Assignments 
Display 


Configuration Example for FBSS 
Controller Using Token-Ring 
Network 


The following CL commands can be used to 
create the AS/400 configuration objects needed to 
attach an FBSS controller with two attached 
devices to an AS/400 system over a token-ring 
network line. 


CRTLINTRN LIND(FBSSTRN) RSRCNAME (LINO31) 
ADPTADR (400010001234) 

CRTCTLFNC CTLD(CFBSS) TYPE(*FBSS) MODEL(0) 
LINKTYPE(*LAN) EXCHID(05711111) 
ADPTADR(400012345000) DSAP(04) SSAP(04) 

CRTDEVFNC DEVD(TRNDEVO3) TYPE(*FNCICF) LOCADR(03) 
RMTLOCNAME(TRNO3) CTL(CFBSS) 

CRTDEVFNC DEVD(TRNDEVO4) TYPE(*FNCICF) LOCADR(04) 
RMTLOCNAME (TRNO4) CTL(CFBSS) 
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Program Explanation 


The following displays are used to configure the 
FBSS controller for token-ring network commu- 
nications with the AS/400 system. Values that 
must match the AS/400 configuration are 
described below. 


The Data Link Control specified on the 
FBSS Communication Servers display 
(TRDLC) must match the link type 
(LINKTYPE parameter) specified on the 
CRTICTLFNC command (see Figure G-5 
on page G-3). 


2 | If an SSCP name is specified for the 
FBSS controller, the value must match the 
AS/400 SSCP identifier (SSCPID param- 
eter) specified on the CRTCTLFNC 
command (see Figure G-6 on page G-3). 


FBSS Service access point for PC value 
must match the destination service access 
point (DSAP parameter) specified on the 
CRTCTLFNC command (see Figure G-7 
on page G-3). 


4 | FBSS Service access point for 
Host/37xx/4700 value must match the 
source service access point (SSAP param- 
eter) specified on the CRTCTLFNC 
command (see Figure G-7 on page G-3). 


5 | FBSS PC address must match the value 
specified for the adapter address 
(ADPTADR parameter) on the 
CRTCTLFNC command (see Figure G-7 
on page G-3). 


G FBSS Host/37xx/4700 address must 
match the value specified for the adapter 
address (ADPTADR parameter) on the 
CRTLINTRN command (see Figure G-7 
on page G-3). 


Concatenation of the FBSS SNA X/D 
Block number and SNA Identification 
number must match the exchange identi- 
fier (EXCHID parameter) specified on the 
CRTCTLFNC command (see Figure G-7 
on page G-3). 


8 | Logical unit numbers specified for the 
FBSS controller must match the local 
location addresses (LOCADR parameters) 
specified for the device descriptions 
(CRTDEVFNC commands) associated with 


this controller description (see Figure G-8 


on page G-3). 
— 
COMVER FINANCIAL BRANCH SYSTEM SERVICES 
Communication Servers 
Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: TRNLAN 
POASOPVER A eseiecereisns do diaieates tie Al 
Data Link Control ..........- TROLC 
Number of buffers ........... 48 


Figure G-5. FBSS Communication Servers Display 


[ i 
COMVER FINANCIAL BRANCH SYSTEM SERVICES 
SSCP Names 

Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: TRNLAN 

PC Server..: Al 
SSCP nameQl ...... xX! ‘a SSCP name@2 ' 
SSCP nameQ3 ...... x! ' SSCP name04 . ' 
SSCP nameQ5 ...... x! ' SSCP nameQ6 . K 
SSCP nameQ7 ...... x! , SSCP nameQ8 . ' 
SSCP nameQ9 ...... x! Y SSCP namelO . ‘ 
SSCP namell ...... x! ' SSCP namel2 . ' 
SSCP namel3 ...... x! i SSCP namel4 Ke 
SSCP namel5 ...... x! : SSCP namel6 : 


Figure G-6. FBSS SSCP Names Display 


— 
COMTOK FINANCIAL BRANCH SYSTEM SERVICES 
Token Ring Communications 
Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: TRNLAN 
PC Server..: 
Service access point for PC .............4. X'04' 
Service access point for Host/37xx/4700 ... x'ea' 
PC AddESS..nis:6i5% cists seine sibfaid v.5a s,s te dence X'12345000' 
Host/37xx/4700 address sites X'10001234' 
SNA XID Block number .......... eget X'Q57' 
SNA XID Identification number x'11111' 


Figure G-7. FBSS Token-Ring Communications 
Display 


[ 4 
COMSLU FINANCIAL BRANCH SYSTEM SERVICES 
Session-Id and LU Assignments 
Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: TRNLAN 
PC Server..: Al Data Link Control ..: TRDLC 
Circuit type .......: Switched Permanent. Not applicable 


Figure G-8. FBSS Session-ld and LU Assignments 
Display 


Configuration Example for FBSS 
Controller Using X.25 


The following CL commands can be used to 
create the AS/400 configuration objects needed to 
attach an FBSS controller with three attached 
devices to an AS/400 system over an X.25 perma- 
nent virtual circuit (PVC). 


CRTLINX25 LIND(LFBSSX25) RSRCNAME(LINO41) 
LGLCHLE((001 *PVC)) NETADR(Q0000027) 
CNNINIT(*LOCAL) DFTPKTSIZE(256) 
MAXPKTSIZE(256) MODULUS(8) DFTWDWSIZE(7) 
CRTICTLFNC CTLD(CFBSSIA) TYPE(*FBSS) MODEL(0) 
LINKTYPE(*X25) SWITCHED(*NO) LINE(LFBSSX25) 
MAXFRAME(265) EXCHID(05700003) NETLVL(1984) 
LGLCHLID(001) 
CRTDEVFNC DEVD(DFBSS02) TYPE(*FNCICF) LOCADR(02) 
RMTLOCNAME (FBSS@2) CTL(CFBSSIA) 
CRTDEVFNC DEVD(DFBSS03) TYPE(*FNCICF) LOCADR(03) 
RMTLOCNAME (FBSS03) CTL(CFBSSIA) 
CRTDEVFNC DEVD(DFBSS04) TYPE(*FNCICF) LOCADR(04) 
RMTLOCNAME(FBSS04) CTL(CFBSSIA) 


To configure the FBSS controller for X.25 commu- 
nications, the X.25 link profile must be customized 
(select X.25 Co-Processor Link Profiles on the 
Communication Profiles and Emulators display). 
The FBSS X.25 link profile describes the controller 
interface to the network; none of the values speci- 
fied for the X.25 link profile need to be coordi- 
nated with AS/400 configuration values when the 
FBSS and AS/400 system are attached through 
an X.25 network. 
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Program Explanation 


The following displays are used to complete the 
FBSS configuration for X.25 communications with 
the AS/400 system. Several of the values speci- 
fied on these displays must match the AS/400 
configuration. These values are described below. 


The Data Link Control specified on the 
FBSS Communication Servers display 
(X25DLC2) must match the link type 
(LINKTYPE parameter) specified on the 
CRTICTLFNC command (see Figure G-9). 


2 | FBSS Type of circuit value must match the 
type of logical channel specified by the 
SWITCHED parameter on the 
CRTCTLFNC command (see 
Figure G-11). 


Concatenation of the FBSS /dentification 
block and Identification number must 
match the exchange identifier (EXCHID 
parameter) specified on the CRTCTLFNC 
command (see Figure G-12). 


4 | Logical unit numbers specified for the 
FBSS controller must match the local 
location addresses (LOCADR parameters) 
specified for the device descriptions 
(CRTDEVFNC commands) associated with 
this controller description (see 


Figure G-13). 
[ | 
COMVER FINANCIAL BRANCH SYSTEM SERVICES 
Communication Servers 

Path ......: C:\FBSSNEW\FBSSCUS\ Configuration ......: X25LAN 

PE SOrVOI> sr2.5 its fais shear eae Al 

Data Link Control ........... X25DLC2 

Number of buffers ........... 20 


Figure G-9. FBSS Communication Servers Display 


[ | 
COMX25 FINANCIAL BRANCH SYSTEM SERVICES 


X.25 Communications 


Path .........: C:\FBSSNEW\FBSSCUS\ 
PC Server Al 


Figure G-10. FBSS X.25 Communications Display 
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[ | 
COMXCI FINANCIAL BRANCH SYSTEM SERVICES 
xX. 


25/SNA Configuration 


Configuration ......: X25LAN 


«1 C:\FBSSNEW\FBSSCUS\ 
Al 


Type of circuit ..........eee eee Switched Permanent —q] 


Figure G-11. FBSS X.25/SNA Configuration Display 


[ | 
COMXPE FINANCIAL BRANCH SYSTEM SERVICES 
X.25/SNA Permanent Circuit Configuration 


Virtual circuit ............- 0001 
Identification block ........ X'057' Ey 
Identification number ....... X'00003' 


Figure G-12. FBSS X.25/SNA Permanent Circuit Con- 
figuration Display 


COMSLU FINANCIAL BRANCH SYSTEM SERVICES 
Session-Id and LU Assignments 


Path C:\FBSSNEW\FBSSCUS\ Configuration ......: X25LAN 
PC Server Al Data Link Control ..: X25DLC2 
Circuit type : Switched Permanent Not applicable 


Figure G-13. FBSS Session-ld and LU Assignments 
Display 


Configuration Example for 4702 
Controller Using SDLC 


Figure G-14 on page G-5 shows a CL program 
that illustrates the creation of a finance environ- 
ment consisting of an AS/400 system and a 4702 
finance controller with display, finance, and printer 
devices attached. This example corresponds to 
the 4702 CPGEN file that is listed after the 
program. 


PGM 


PERI E III ISO II II III IIIS IIIA IIIA TTI II III III I I II II AAAI | 


/* Create the SDLC line description to go to the 4702 controller */ 


EEC AISI IEEE III IAI II IIIS IAI II IA TAI III III III I I I IA AAA 4 | 


CRTLINSDLC LIND(LIN4702) RSRCNAME(LINO71) ONLINE(*NO) ROLE(*PRI) + 


NRZI (*NO) 
FEO CHICO ICI IOI ICO IOI TOOT TOI ICAI I TOI III TOI III ITI I IAI A A a aI | 
/* Create the 4702 controller description */ 


HORI R ERIE EOI IEEE I IIIT IEE ICICI ITE T CII I TIS I TI a A teks | 
CRTCTLFNC CTLD(CTL4702) TYPE(4702) MODEL(0) LINKTYPE(*SDLC) + 
ONLINE(*NO) LINE(LIN4702) STNADR(C1) 


ERIE III IOI EEE IIIT IIIS IIIA III IA TAI III III II III I I I II AAI I | 


/* Create the device descriptions */ 
/* 2 - 3277 display */ 
/* 1 - 3287 printer */ 
/* 1 - *FNCICF finance device x/ 
/* 1 - 4704 finance device x/ 


PBC IIIS IEEE TAI IIIS IIIA IIIA TAI III III III I I I I IA IAAI | 

CRTDEVDSP DEVD(FNCDSP09) DEVCLS(*RMT) TYPE(3277) MODEL(0) + 
LOCADR(@9) ONLINE(*NO) CTL(CTL4702) 

CRTDEVDSP DEVD(FNCDSP10) DEVCLS(*RMT) TYPE(3277) MODEL(0) + 
LOCADR(OA) ONLINE(*NO) CTL(CTL4702) 

CRTDEVFNC DEVD(DEVICF) TYPE(*FNCICF) LOCADR(03) RMTLOCNAME(DEVICF) + 
ONLINE(*NO) CTL(CTL4702) 

CRTDEVFNC DEVD(DEV4704) TYPE(4704) LOCADR(02) ONLINE(*NO) CTL(CTL4702) 

CRTDEVPRT DEVD(FNCPRT) DEVCLS(*RMT) TYPE(3287) MODEL(®) LOCADR(O8) + 
ONLINE(*NO) CTL(CTL4702) 


ENDPGM 


Figure G-14. AS/400 Configurations Example for Finance Communications 
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Program Explanation 4 | The APBNM parameter specifies the 4702 
application which runs on the specified LU 


The following explains the CPGEN program address. The SNA protocol supported for 
shown in Figure G-15 and the specific values the AS/400 device description at that LU 
needed for the parameters for finance communica- address (local location address) must 
tions. match the protocol supported by the appli- 
a cation. For example, if the 4702 applica- 
Since the ACB parameter is not specified, tion supports SNA LU type 0, then the 
the SDLC line defaults to NRZI. There- AS/400 device must be configured as a 


fore, the NRZI parameter on the AS/400 
SDLC line description must be specified 


finance device. 


as NRZI(*YES). Figure G-15 is an example of a partial CPGEN 
2 | The TYPE parameter must be a 4502 that would be used to configure a 4702 finance 
application if an SDLC is specified. controller corresponding to Figure G-14 on 
page G-5. 


The LUA parameter on the STATION 
macro in the CPGEN file must match the 
LOCADR parameter on the device 
description. 


JE IOI IIIS IOI SCIOTO IO TOSI TI TOI II TI III TI III IS IIA IA AAAST ART = ABCADM47 * 
FEO SISSIES IOS ITO SI SIGS TC TOSI ICICI TCI TTI I TIT II II III II III IS IS IIA IK. 


om ne 
= ee 
e ee REE 4702 ee RE eK 
a ee 
a ABCADM 47 VERSION 3 * 
se ee 
*e ROCHESTER CPGEN x 
et be 
Ke FOR eK 
ee ee 
we ABCS AND ADMIN AND OTS we 
ee ee 
a ee 
Jee abbi inhi iinbiidnniiaebiiicbiiinniiinbiiinbiiisbitinbiiibiiebiiebinecinees 
JOBE ESSE Snr Snr endl ennr ted inbreritnbrtnrr terri tibitri tebe: 
rr 


** ABCS ST02: 4704-12 77 KEYS (L1A1) ADDRESS SHARED 4710 (L1A1-4) ** 
** ABCS STO3: 4704-11 50 KEYS (L1A2) ADDRESS SHARED 4710 (L1A2-4) x** 
** ADMIN STO7: 4704-22 107 KEYS (DCA1) SWAPPED FROM ABCS STATION 4 ** 
** ADMIN STO8: ADMIN LU1 DIRECT PRINT USING A DPOOLED 3287 (DCA2) ¥* 
** ADMIN STO9: 3279-2 87 KEYS (DCA3) USING A DPOOLED 3287 (DCA2) ¥** 
** ADMIN ST10: 3279-2 87 KEYS (DCA3) SWAPPED FROM ADMIN STATION 10 ** 


= ee 

x* DEBUG = 4704-11 62 KEYS (L2A1) UTILITY = 4704-21 62 KEYS (DCA7) ** 

ee ve 

Jonrtdreedininerenbiidnnniebiniinniieniiinbnierinindininriieniterintinnieritins 

Jb HEHE Sdn tn iibnnntinrenie sini bindiniebiinbes bitin tiidetiiiesicebecs 
EJECT 


Figure G-15 (Part 1 of 11). CPGEN Program 
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SII IK IR IR FOR RIOR I OK IK IKK TOK RIK RIK RIK IKK IKK IKK IK RIK IK IKK IKK IKK IKARIA 


* 


* STARTG 


* 


* 


EN MACRO * 


* 


SRI I OK IK IKK IRR IORI KKK IKK IKK IKK IK RIK IKK IKK IKK IK KIKI KIKI RIKKI I IRI 


SPACE 
ABCADMOT STARTGEN ID=ABCADMOT, 
DATE=042589, 
VN=0, 
CTLR=4702, 


MONITOR=(EXPMB, 26) , 


DSKOP=N, 
TIMEOUT=2:00, 
MSGLITE=4, 
TOALERT=Y, 
STATS=NOWRAP , 
S15=65000, 
PRINT=NOGEN 
SPACE 


EN VERSION NUMBER 

FOR 4702 CONTROLLER 
EXPANDED SYSTEM MONITOR 
DISKETTE NON-OPERATIONAL 
STARTUP TIME-OUT 

MESSAGE LOG LIGHT 

ERMINAL ERROR ALERT 

NO WRAP STATISTICAL COUNTERS 
GLOBAL SEGMENT- SPLIT TABLES 


= 


RIOR I KIKI RK IRR R KK IK IKK IK IIR RIKKI K IKK IKK IKK IK KIKI I IKI K IKK IKARIA 


* 


* MONITO 


* 


* 


R OP ONS * 


* 


SRI I OK IR IRR FOR RIOR I OK IK IKK TOK KIRK IK RIK IKK IKK IKK IK RIKI IK IKK IK IKK IKI IKI 


SPACE 
MONOPTS HELPMSG=T, 
HELPCMD=T , 
APMERGE= 
EJECT 


INCLUDE SYSTEM MONITOR MSGS 
INCLUDE SYSTEM MONITOR HELP 
INCLUDE SYSTEM MONITOR MERGE 


RII KIKI RK IKK IRR KK IK IKK IK KIRK KR IK IKK IKK IR IK KIKI KIKI RIK KIKI IKI 


* 


* DEFINE 


* 


* 


TRANSTENT POOL * 


* 


RIOR IK IK IKK IKK IKK IK IIR IKK IK KIRK IK RIK IKK IKK IK IKK IKI I KK IR IKK IKI IK 


SPACE 
IPTPOOL TRANPL 19500,RFSH=Y 

APLIST (IPTXFER,25,T) 

APLIST (IPTXIT,25,T) 


DEFINE TRANSIENT STORAGE POOL 
INCLUDE IPTXFER AS TRANSIENT 
INCLUDE IPTXIT AS TRANSIENT 


* UPDATE IPTXFER VERSION WITH EACH NEW LEVEL OF MIRCOCODE.... 


* FOR MICROCODE A-4, USE VERSION 25 


SPACE 


SRI OK IR IRR FOR RIOR I OK IK IKK IKK IKK IKK IK IKK IKK IKK IKK IK IIR IKK IK IKK IKARIA 


* 


* AND A U 


* 


* 


TILITY STATION * 


* 


SRI I OK IR IR IRR R KKK IKK IKK IKK IK KIKI KK IKK IKK IK IIR IKK IKK IR IKK IKI 


SPACE 
UTILITY UTILSTAT ID=15, 

DA=(DCA7(0,1)), 
DSKT=Y, 
DISK=Y, 
DATASET=Y, 
DIRECT=Y 

SPACE 


UTILITY STATION IS 15 ON DCA7 
4704 MODEL 21 USING 62 KEY kB 
INCLUDE DISKETTE FUNCTIONS 
INCLUDE THE DISK FUNCTIONS 
INCLUDE DATA SET FUNCTIONS 
INCLUDE DIRECTORY FUNCTIONS 


Figure G-15 (Part 2 of 11). CPGEN Program 


>< >< >< >< OK >< OOK OOK OOK OOK OK 


Xx 
x 


>< >< >< >< >< 
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SRI RIOR IR TOR RIOR I OK IIR IKK TOK RIK RIK RIK IKK IKK IKK IK RIK IKK IKK IKK IK RIKI IKI 


* * 


* PUBLIC/SYSTEM VIRTUAL VOLUME * 
" * 
JOBE HOE EES H ES ten red binned ten netiiien inex iieek iene tied eenitientied 
SPACE 
* VOLUME VIRVOL  PUBLIC=A, PUBLIC VOLUME RESIDES ON DISK A X 
* SYSTEM=A, SYSTEM RESET VOLUME IS A DISK A X 
* PVMPORT=1, VOLUME MANAGER IS ON DCA PORT 1 X 
* VVSTA=14 USE STATION 14 FOR I/O REQUESTS 
SPACE 
JOH HOE ate Oretndennre titer tnetndeninedhdinnenitenieetieenieniedienie: 
* “ 
* PRIVATE VOLUME FO DCA ORT 1 * 
% * 
JOH ESE de HORE der Hen ten iien ten netiden ties nein tien eenieen ied 
SPACE 
* VWPORT1 VVPORT  PVDRIV=A, PRIVATE VOLUME RESIDES ON DISK A X 
* PORT=1, PRIVATE VOLUME IS FOR DCA PORT 1 X 
* PVNAME=VVOLUME.PRIVATE1 PRIVATE VIRTUAL VOLUME DATA SET 
EJEC 
Jbbidederindetedbhindenndorindennelrnbennsdineniendinndnnunindninelinierie: 
+ + 
* COMLINK MACRO * 
+ + 
Jit er Oee da don dent dennredndennnetiden neni seninenniehieeeneniennedienien 
SPACE 
oe COMLINK DCL=9600, SPEED OF COMMUNICATION LINK x 
1 
TYPE=(4502), El COMMUNICATION TYPE IS SDLC X 
WRAP=N, NO WRAP CAPABILITY ON MODEM x 
CNL=260, SIZE OF LINK READ BUFFERS x 
CNB=24, NUMBER OF LINK READ BUFFERS x 
WRT=7, ALLOW MAXIMUM NUMBER WRITES x 
CTG=1, x 
OPTIONS= (BIND) 
EJECT 
JES OHE eee MEE Hc nen lesieadeniioniheeiinneeni exits 
- + 
* LOOP MACROS * 
+ + 
SHE tSto nici betes ioe tek biekednieneRinniee 
SPACE 
Ll LOOPS ID=1, LOOP ID x 
TYPE=L, LOCAL LOOP x 
BPS=4800 LOOP SPEED 
SPACE 
L2 LOOPS ID=2, LOOP ID x 
TYPE=L, LOCAL LOOP x 
BPS=4800 LOOP SPEED 
SPACE 
13 LOOPS ID=3, LOOP ID x 
TYPE=L, LOCAL LOOP x 
BPS=4800 LOOP SPEED 
SPACE 


Figure G-15 (Part 3 of 11). CPGEN Program 
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Finance Communications Programming V4R1 


L4 LOOPS 


EJECT 


* 
* 
* 


SPACE 
OPTMOD OPTMOD 


EJECT 


* 
* 
* 


SPACE 
IPLDRIV IPLDRI 


SPACE 
PRIDSKT FILES 


SPACE 
AUXDSKT FILES 


* 


* 


* 


>< >< >< >< >< OK OOK OOK OOK OOK OKO 


* 


* 


* 


>< >< >< >< >> >< OOK >< >< >< >< OK > OOK 


>< >< >< >< >< >< OOK 


ID=4, LOOP ID 
TYPE=L, LOCAL LOOP 
BPS=4800 LOOP SPEED 
Je SSSA ISI ISI SSI SS ISS S HIS IAI IIIA IIE IE IGE IS I SEIS ISIE 
OPTIONAL MODULES 
JERS ISHS ISIS ISS ISS ISHS IAI IIA IS I IGE IE IGE IS I SEIS ISIE I 
M45, FINDAP 
21, LTRT 
24, LSEEKP 
26, DECOMP/DECOMPTB 
27, COMP/COMPTB 
2A, SCRATCH PAD 
2C, NTERVAL TIMER 
p42, DPOOL 
57, DES 
5E, SETDSKT 
68, LEXEC, SCALE, SETX, 
70 DATSM 
Je REISS ISH ISIS ISS IIS ISHS SIG IIIS IIE IS I IS IIS I SEIS ISIE I 
FILES MACROS 
JERE SSIS ISH ISIS ISS SAHA IOI IIIS IIS IIE IGE IS I SEIS ISIE I 
Vv PF=1200, PERMANENT FILE BLOCKS 
F=(2,100) , EMPORARY FILE UNITS 
NDX1=(1-16), SUB FILE INDEX TF1 - ONLINE 
NDX2=(1-16), SUB FILE INDEX TF2 - OFFLINE 
NDXC=(1-16), COMBINED FILE INDEX - JOURNAL 
COMF=(1,2), COMBINED FILE - JOURNAL 
LOGTM=Y, ME STAMP USER MESSAGES 
BUF= READ INDEX BUFFER 
DKT=1, PRIMARY DISKETTE DRIVE 
F=(2,200), EMPORARY FILE UNITS 
NDX1=(1-16), SUB FILE INDEX TF1 - ONLINE 
NDX2=(1-16), SUB FILE INDEX TF2 - OFFLINE 
NDXC=(1-16), COMBINED FILE INDEX - JOURNAL 
COMF=(1,2), COMBINED FILE - JOURNAL 
EDAM=(2,2,ALLOC,XRCD,NOKEYED,MB), INCLUDE EDAM 
BUF=Y READ INDEX BUFFER 
DKT=2, SECONDARY DISKETTE DRIVE 
F=(2,200), EMPORARY FILE UNITS 
NDX1=(1-16), SUB FILE INDEX TF1 - ONLINE 
NDX2=(1-16) , SUB FILE INDEX TF2 - OFFLINE 
NDXC=(1-16), COMBINED FILE INDEX - JOURNAL 
COMF=(1,2), COMBINED FILE - JOURNAL 
EDAM=(2,2,ALLOC,XRCD,NOKEYED,MB), INCLUDE EDAM 
BUF=Y READ INDEX BUFFER 


SPACE 


Figure G-15 (Part 4 of 11). CPGEN Program 
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PRIDISK FILES  DSK=A, 


PRIMARY JARDDISK DRIVE 


EDAM=(2,2,ALLOC,XRCD,NOKEYED,MB) | INCLUDE EDAM 


RIOR IK IR IK FOR RIOR I KKK IKK IKK IKK IK KIKI KK IKK IKK IKI IK IKK IKK IK IKK IKI 


PAD MACROS 


* 


* 


* 


SR IORI RIK IK IK KIRK OK IK IKK IKK IKK IKI IK IKK IKK IKK IKK IKI IK IKK IK IKK IKARIA 


SCRATCH PAD ID 
SCRATCH PAD SIZE 


SCRATCH PAD ID 
SCRATCH PAD SIZE 


SCRATCH PAD ID 
SCRATCH PAD SIZE 


SCRATCH PAD ID 
SCRATCH PAD SIZE 


SRI I OK IR IRR IK KIKI IK IIR IKK IKK IKK IK KIKI KK IKK IKK IKK IKI IK IKK IKK IKK IKI IKI 


MACROS 


* 


* 


* 


RIOR OK IK IKK IORI RK KK IKK IKK IKK IKK IKI IK IIR IK KIKI I KIA RIK KIKI IKI 


EJECT 
* 
* SCRATCH 
+ 
SPACE 
DEFSPA1 DEFSPA ID=1, 
SIZE=3400 
SPACE 
DEFSPA2 DEFSPA ID=2, 
SIZE=3400 
SPACE 
DEFSPA3 DEFSPA ID=3, 
SIZE=3400 
SPACE 
DEFSPA4 DEFSPA ID=4, 
SIZE=3400 
EJEC 
* 
* SEGSTOR 
% 
SPACE 


SEGSTOR1 SEGSTOR CLASS=1, 
SEGSIZE=(0, 
900, 
140, 
100, 
100, 
650, 
256, 
275, 
768), 
$13=65000 
SPACE 
SEGSTOR2 SEGSTOR CLASS=2, 
SEGSIZE=(0, 
900, 
140, 
1000, 
100, 
3072, 
256, 
325, 
768, 
2000, 
102, 
6144), 
S131D=1 
SPACE 


Figure G-15 (Part 5 of 


SMALL DISPLAY (TELLER ONLY) 
STANDARD REGISTER SEGMENT 
WORKSTATION ENVIRONMENT SEGMENT 
TELLER TRANS HOLD SEGMENT 

DMIN TRANS HOLD SEGMENT 
ERMINAL INPUT SEGMENT 

ERMINAL OUTPUT & LOG SEGMENT 
SKETTE INPUT/OUTPUT SEGMENT 
U INPUT/OUTPUT SEGMENT 

ELLER TOTALS SEGMENT 

LOBAL SEGMENT 13 


QgA00FK> 


LARGE DISPLAY 
STANDARD REG 
WORKSTATION E| 


(TELLER AND ADMIN) 
TER SEGMENT 
VIRONMENT SEGMENT 
(OLD SEGMENT 

u 


S 
Z= 
= 
2 
2 
S 
ra 
S 
2 
a 
is} 
i=] 
2) 
m 
2 
= 
fal 
2 
=| 


NPUT SEGMENT 

RMINAL OUTPUT & LOG SEGMENT 
SKETTE INPUT/OUTPUT SEGMENT 
NPUT/OUTPUT SEGMENT 


are 

r 

m 
a 
i=) 
> 
me 
n 


S TERMINAL SWAP TO ADMIN PP 
Y SCALING SEGMENT 
A DICTIONARY ELEMENT SEGMENT 
ARE SEGMENT 13 WITH CLASS=1 


SBrEaomy 
> 
o 
Q 
(=) 
2 
S 


YUoDrFHOCRHHE 
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>< >< >< >< OK OOK OOK OOK OKO 


SEGSTOR3 SEGSTOR CLASS=3, CPU COMMUNICATION WORKSTATION X 
SEGSIZE=(200, REGSEG - NO EXTRA BYTES Xx 
360, WORKSTATION ENVIRONMENT SEGMENT X 
256, TELLER TRANS HOLD SEGMENT x 
70, ADMIN TRANS HOLD SEGMEN x 
70, TERMINAL INPUT SEGMENT x 
256, TERMINAL OUTPUT & LOG SEGMENT x 
256, DISKETTE INPUT/OUTPUT SEGMENT x 
325, CPU INPUT/OUTPUT SEGMEN Xx 
0, NOT USED x 
Q), USER SEGMENT x 
S13=4608 

SPACE 

SEGSTOR4 SEGSTOR CLASS=4, ADMIN PP PASSTHRU WORKSTATION X 
SEGSIZE=(0, REGSEG - NO EXTRA BYTES x 
2058, STATION 1/0 BUFFER SEGMENT x 
520, LOCAL STATION FIELDS SEGMENT x 
60, DEFDMS DATSM MACHINE SEGMENT x 
60, LOCAL ERROR AND DEBUG SEGMENT Xx 
0, SEGMENT 6 - NOT USED X 
0, SEGMENT 7 - NOT USED Xx 
0, SEGMENT 8 - NOT USED X 
0, SEGMENT 9 - NOT USED x 
60, ADMIN PP TO ABCS SWAP SEGMENT x 
0, SEGMENT 11 - NOT USED x 
®), SEGMENT 12 - NOT USED x 
$13=500 ADMIN PP GLOBAL FIELDS SEGMENT 

SPACE 

SEGSTOR5 SEGSTOR CLASS=5, 4700 PC - FILE TRANSFER+PS/PC x 
SEGSIZE=(0, REGSEG - NO EXTRA BYTES x 
3850, STATION 1/0 BUFFER SEGMENT x 
520, LOCAL STATION FIELDS SEGMENT Xx 
60, DEFDMS DATSM MACHINE SEGMENT Xx 
60, LOCAL ERROR AND DEBUG SEGMENT x 
0, SEGMENT 6 - NOT USED Xx 
0, SEGMENT 7 - NOT USED X 
0, SEGMENT 8 - NOT USED X 
0, SEGMENT 9 - NOT USED x 
60, ADMIN PP TO ABCS SWAP SEGMENT Xx 
0, SEGMENT 11 - NOT USED Xx 
Q), SEGMENT 12 - NOT USED x 
S131D=4 ADMIN PP GLOBAL FIELDS SEGMENT 


EJECT 
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* 


* 


* 


STATION 


MACROS 


* 


* 


* 


RIOR I KI RIK FOR IK I OK IK IKK IKK IKK IK RIKI KK IKK IKK IK KIKI I KK IK IKK IKARIA 


SPACE 


STATION2 STATION ID=2, 


LUA=2, 

TERM=(L1A1), 
DPOOL=POOL1, 
SS=3 


y APBNM=(ABCSAP20, 1) , 


SPACE 


DELSET=X'02', 
CPU=Y, 
SHARED=N, 
STARTUP=Y , 
WRT=1, 
NTMR=0, 

NSTR=65535, 
ETSTK=12 


STATION3 STATION ID=3, 


SPACE 
SPACE 


LUA=3, 
TERM=(L1A2) , 
DPOOL=POOL1, 
SS=1, 
APBNM=(ABCSAP20, 1), 
DELSET=X'01', 


STATIONS STATION ID=8, 


SPACE 


LUA=8, 
SS=4, 
APBNM=(DVSAMP47, 3) , 
DELSET=X'04', 
CPU=Y, 
SHARED=N, 
STARTUP=Y , 
WRT=1, 
INTMR=6, 
INSTR=65535, 
RETSTK=12 
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EFINE CONTROLLER STATION 2 
0 COMMUNICATE TO HOST AS 2 
704-12 77 KEY, SHARED 4710 
OOLED 4720-4 USED PB ONLY 
EGMENT STORAGE IDENTIFIE 
ASSOCIATED WITH TH 
ITIAL DELIMITER CON 
ST COMMUNICATION ALL 
|ARED WORK STATION OP 
NTROL AT START-UP OI 
H I 

T 


10 STATION INTERVAL 
LLOW MAXIMUM BEFORE LEXI 
LLOW 12 LINK STACK LEVELS 


SEZzranrzrHnprunvysny)s 


EFINE CONTROLLER STATION 
0 COMMUNICATE TO HOST AS 
704-11 50 KEY, SHARED 47 
OOLED 4720-4 USED JP/CF/ 
EGMENT STORAGE IDENTIFIE 
P ASSOCIATED WITH THIS WS 
TAL DELIMITER CONTROL 
COMMUNICATION ALLOWED 
ED WORK STATION OPTION 
ONTROL AT START-UP 0} 

CHECK AFTER ONE LWRITE C 
IO STATION INTERVAL T 

LLOW MAXIMUM BEFORE LEXI 
LLOW 12 LINK STACK LEVELS 


DOwWww 


S 


SEZzranzrHnsrunysHn)S 
So2z 
at 


FINE CONTROLLER 
COMMUNICATE TO 
GMENT STORAGE ID 
ASSOCIATED WITH 
TIAL DELIMITER CON 
ST COMMUNICATION ALLOWED 
JARED WORK STATION OPTION 
NTROL AT START-UP OI 

ECK AFTER ONE LWRITE CP 
LLOW SIX INTERVAL T 

LLOW MAXIMUM BEFORE LEXIT 
LLOW 12 LINK STACK LEVELS 


S2 umOMm 


ao 


SPEPranzrHruHndns 


11). CPGEN Program 


>< >< >< >< OK OOK OOK OOK OOK OOK OOK OOK OOK >< >< >< >< OK >< OK OOK OOK OOK OOK OOK OOK 


>< >< >< >< >< >< OOK OOK OOK OOK ODS 


STATIONS STATION ID=9, DEFINE CONTROLLER STATION 9 x 
LUA=9, TO COMMUNICATE TO HOST AS 9 X 
DA=(DCA3(0,1)), 3279 MODEL 2 USING 87 KEYS X 
Ss=4, SEGMENT STORAGE IDENTIFIER x 
APBNM=(DVSAMP47,3), | AP ASSOCIATED WITH THIS WS x 
DSM=(300,24,80,24,80,EAB,DCA), DATSM - DCA + EAB x 
DSM1=DSMNUMCK, WITH SPECIAL NUMERIC CHARS X 
DELSET=X'04', INITIAL DELIMITER CONTROL x 
CPU=Y, HOST COMMUNICATION ALLOWED x 
SHARED=N, SHARED WORK STATION OPTION X 
STARTUP=Y, CONTROL AT START-UP OPTION x 
WRT=1, LCHECK AFTER ONE LWRITE C x 

NTMR=6, ALLOW SIX INTERVAL TIMERS x 
NSTR=65535, ALLOW MAXIMUM BEFORE LEXI x 
ETSTK=12 ALLOW 12 LINK STACK LEVELS 

SPACE 

STATIONA STATION ID=10, DEFINE CONTROLLER STATION 10 x 
LUA=10, TO COMMUNICATE TO HOST AS 10 x 
SS=4, SEGMENT STORAGE IDENTIFIE x 
APBNM=(DVSAMP47,3), | AP ASSOCIATED WITH THIS WS x 
DSM=(300,24,80,24,80,EAB,DCA), DATSM - DCA + EAB x 
DSM1=DSMNUMCK, WITH SPECIAL NUMERIC CHARS x 
DELSET=X'04', INITIAL DELIMITER CONTROL x 
CPU=Y, HOST COMMUNICATION ALLOWED x 
SHARED=N, SHARED WORK STATION OPTION X 
STARTUP=Y, CONTROL AT START-UP OPTION X 
WRT=1, LCHECK AFTER ONE LWRITE C x 
INTMR=6, ALLOW SIX INTERVAL TIMERS x 
INSTR=65535, ALLOW MAXIMUM BEFORE LEXI x 
RETSTK=12 ALLOW 12 LINK STACK LEVELS 

SPACE 
EJECT 

JOH AEH aeteterndes ite iieditinineniitientnenitiniene tind eex bien ieetiick 

+ a 

* DATSM NUMERIC CHECK MACRO * 

+ * 

Jhbicdbbicrieicdabcniediinnihicdiednihiniiinniheniiieennbninnierinennibieeiie 

SPACE 

DSMNUMCK DSMNUMCK FC, ALLOW DUP KEY WITHIN NUMERIC X 

FE ALLOW FIELD MARK WITHIN NUMERIC 
EJEC 

HHS HHEd i aoreddc doen tesniednendion bedi henanenbieninaedenionien 

+ * 

* DEFADDR AND DCAPO MACROS x 

* % 

Jontrednedorndenideriderberiernneeridennderierineniiidennerieenienttie: 

SPACE 

LIAL DEFADDR (DS470477) , 4704 MODEL 12 & 77 KEY KEYBOARD X 
(JP471001,4) , 4710 MODEL @1 - ADDRESS SHARED X 
ADDR=(L1,1,4) LOOP 1 ADDRESS 1 120 CPS 

SPACE 

L1A2 DEFADDR (DS470450) , 4704 MODEL 11 & 50 KEY KEYBOARD X 
(JP471001,4), 4710 MODEL @1 - ADDRESS SHARED X 
ADDR=(L1,2,4) LOOP 1 ADDRESS 4 120 CPS 

SPACE 
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L1A3 


L1A4 


L2A1 


DCAO 


DCA1 


DCA3 


DCA7 


* 
* 
* 


DS470450 


DS470477 


S 
x 


S 
>< 


S 
>< 


* 


* 


* 


>< >< >< >< >< OK OK OK OK 


>< >< >< >< OK >< OOK OOK OOK 


DEFADDR (JP472004,4,PO0OL1), 4720 MODEL 04 - DPOOLED PRINT 
ADDR=(L1,3,4) LOOP 1 ADDRESS 3 120 CPS 

SPACE 

DEFADDR (JP472004,4,POOL1), 4720 MODEL 04 - DPOOLED PRINT 
ADDR=(L1,4,4) LOOP 1 ADDRESS 4 120 CPS 

SPACE 

DEFADDR (L2A1DBUG) , 4704 MODEL 11 & 62 KEY KEYBOA\ 
ADDR=(L2,1,2) LOOP 2 ADDRESS 1 240 CPS 

SPACE 

DCAPORT (DCA04704) , 4704 MODEL 22, 107 KEY KEYBOAI 
PORT= DCA PORT ADDRESS 0 

SPACE 

DCAPORT (DCA14704) , 4704 MODEL 22, 107 KEY KEYBOAI 
ORT= DCA PORT ADDRESS 1 

SPACE 

DCAPORT (DCA33279) , 3279 MODEL 2B & 87 KEY KEYBOA\ 
ORT=3 DCA PORT ADDRESS 3 

SPACE 

DCAPORT (DCA7UTIL), 4704 MODEL 21 & 62 KEY KEYBOA\ 
PORT=7 DCA PORT ADDRESS 7 

EJEC 

FEISS SSSI ISS SE SG ISG ICCC IIR IIR 
DISPLAY DEVXXXX MACROS 
FEI SIC ISS S CISC SG SC CG ICCC IIR RII oR 

SPACE 

DEV4704 MODEL=11, MODEL 11 KEYBOARD DISPLAY 
OUTRTBL=0UT4704, OUTPUT TRANSLATE TABLE 
CHARSET=US, CHARACTER SET FOR U.S. 
RTBHDR=KBABCS50, 50 KEY TRANSLATE TABLE 
OPTIONS=(4905,NCSR,SI), MAGNETIC STRIPE DEVICE 
MSTRTBL=(MSABCSIN,MSABCSOT) , MAGNETIC STRIPE TABLES 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y, CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 

SPACE 

DEV4704 MODEL=12, MODEL 12 KEYBOARD DISPLAY 
OUTRTBL=0UT4704, OUTPUT TRANSLATE TABLE 
CHARSET=US, CHARACTER SET FOR U.S. 
RTBHDR=KBABCS/77 , 77 KEY TRANSLATE TABLE 
OPTIONS=(4905,NCSR), | MAGNETIC STRIPE DEVICE 
MSTRTBL=(MSABCSIN,MSABCSOT), MAGNETIC STRIPE TABLES 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y, CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 

SPACE 
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L2A1DBUG DEV4704 MODEL=11, MODEL 11 KEYBOARD DISPLAY 
OUTRTBL=0UT4704, OUTPUT TRANSLATE TABLE 
CHARSET=US, CHARACTER SET FOR U.S. 
RTBHDR=KBDBUG62, 62 KEY FOR MONITOR/DEBUG 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y, CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 
SPACE 
DCA04704 DCA4704 
MODEL=22, MODEL 22 IS FOR 24 X 80 
OUTRTBL=OUT47M2, OUTPUT TRANSLATE TABLE 
RTBHDR=KBABCS/77 , 107 KEY TRANSLATE TABLE 
RTLIST=KBLOCL77, 107 KEY LOCAL KEY TABLE 
FEATURE=MSRE, MAGSTRIPE READER/ENCODER 
MSTRTBL=(MSABCSIN,MSABCSOT), MAGNETIC STRIPE TABLES 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y , CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 
SPACE 
DCA14704 DCA4704 
MODEL=22, MODEL 22 IS FOR 24 X 80 
OUTRTBL=OUT47M2, OUTPUT TRANSLATE TABLE 
RTBHDR=KBABCS50, 50- KEY TRANSLATE TABLE 
FEATURE=MSRE, MAGSTRIPE READER/ENCODER 
MSTRTBL=(MSABCSIN,MSABCSOT) , MAGNETIC STRIPE TABLES 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y, CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 
SPACE 
DCA33279 DCA3279 
MODEL=8B, 3279 MODEL 2B 
OUTRTBL=0UT3278, OUTPUT TRANSLATE TABLE 
RTBHDR=KBADMN87 , 87 KEY TRANSLATE TABLE 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y, CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 
SPACE 
DCA7UTIL DCA4704 
MODEL=21, MODEL 21 IS FOR 12 X 40 
OUTRTBL=OUT47M2, OUTPUT TRANSLATE TABLE 
RTBHDR=KBDBUG62, 62 KEY FOR MONITOR/DEBUG 
ALITE=(SYS) , ALARM LIGHTS 
EOMSET=X'FF', INITIAL EOM MASK SETTING 
CURSOR=Y, CURSOR TO STAY ON SCREEN 
ERTLS=Y LIMIT THE KEYBOARD LREAD 
EJECT 
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>< >< >< >< >< OK OOK OOK OK >< >< >< >< OK >< OOK OOK OOK OOK >< >< >< >< OK OOK OOK 


>< >< >< >< OK >< OOK 


>< >< >< >< >< >< OOK 


RIOR I OK IK IK IORI RK IIR IKK IKK IKK IK KIKI KIKI IKK IKI IKI IK IKI IKK IKARIA 


* 


* 


* 


* 


>< >< >< >< >< OK OOK OOK OOK OK 


>< >< >< >< >< >< OOK OOK OOK OK 


>< >< >< 


* PRINTER DEVXXXX MACROS 
* 
Jit deedrticrnddiniticnnednbbicniedinbininiibechnednbennnennibehteninentes 
SPACE 
JP471001 DEV4710 OUTBHDR=0UT4710, 4710 OUTPUT TRANSLATE HEADER 
MODEL=1, 1 = JOURNAL ROLL AND CUTFORM 
SHARED=N, SHARED PRINTE 
KEY=N, AUTOSTART - START KEY NOT REQ'D 
WL=0, WARNING LINE CUTFORMS ONLY 
OFFSET=0, LINES TO INDEX AT INSER 
NL=AUTO, AUTOMATIC NEW LINE FUNCTION 
cPI=1, 12 CPI PRINT CHAR DENSITY 
LINE=48, 48 CHARS PER PRINT LINE 
DEFTRT=USTBL10, 4710 SPECIAL CHAR TRANSLATE TBL 
=4 PRINT UP TO 4 LINES CUTFORM 
SPACE 
JP472004 DEV4720 OUTBHDR=0UT4720, 4720 OUTPUT TRANSLATE HEADER 
MODEL=4, 4 = JOURNAL/CUTFORM/PASSBOOK 
S=66, PAGE SIZE DEFAUL 
OFFSET=(0,00) , LINE OFFSET DEFAUL 
SHARED=N, SHARED PRINTE 
KEY=N, AUTOSTART/KEY STA 
NL=AUTO, NEWLINE AUTOMATIC 
LPI=6, LINES PER INCH DEFAULT 
cPI=1, CHARACTERS PER INCH DEFAULT 
LINE=80, LINE LENGTH DEFAUL 
DEFTRT=USTBL20 4720 WORLD TABLE AT POWER ON 
SPACE 
DCA24715 DEV4715 OUTBHDR=0UT4715, 4715 OUTPUT TRANSLATE HEADER 
LPI=5, LINES PER INCH DEFAULT 
CPI=10, CHARACTERS PER INCH DEFAULT 
LINE=80 LINE LENGTH DEFAUL 


EJECT 
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